sample - record read.pas

来自「最新版 JCL+JVCL控件！非常不错的控件资源。包含了所能用到的大部分功能！」· PAS 代码 · 共 7 行

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