╤εΣσ≡µαφΦσ αΩ≥ΦΓφεΘ τα∩Φ±Φ Γ ┴─

╩αΩ ≤τφα≥ⁿ ±εΣσ≡µαφΦσ αΩ≥ΦΓφεΘ τα∩Φ±Φ Γ ┴─?

╤δσΣ≤■∙α ⌠≤φΩ÷Φ ΓετΓ≡α∙ασ≥ Γ ΓΦΣσ ≤Ωατα≥σδ φα ±≥≡εΩ≤ ±εΣσ≡µαφΦσ αΩ≥ΦΓφεΘ τα∩Φ±Φ Γ ┴─.


function TBDEDirect.GetCurRecord(Lock: DBILockType): PChar;

var
  Res: DBIResult;
  RecSize: Word;
  RecBuf: PChar;
  Bookmark: TBookmark;

begin
  Result := StrNew('');
  if CheckDatabase then
    begin
      RecSize := GetPhysicalRecSize;
      RecBuf := StrAlloc(RecSize+1);
      FillChar(RecBuf^, RecSize+1, #0);
      Bookmark := FDataLink.DataSource.DataSet.GetBookmark;
      DbiSetToBookmark(FDataLink.DataSource.DataSet.Handle,
        Bookmark);
      FDataLink.DataSource.DataSet.FreeBookmark(Bookmark);
      Res := DbiGetRecord(FDataLink.DataSource.DataSet.Handle,
        Lock, RecBuf, nil);
      if Res = 0 then
        Result := RecBuf
      else
        Check(Res);
    end;
end;

╤εΓσ≥√ φα≈Φφα■∙Φ∞