sample - record read.pas

来自「jvcl driver development envionment」· PAS 代码 · 共 7 行

var
  F : TSearchRec;
begin
  Result := F.Attr;
end;