Haruyuki Mohri Blog(Delphi)

毛利春幸のブログ

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
  1. --/--/--(--) --:--:--|
  2. スポンサー広告

XE5 MacOS10.8.5でファイルアクセス その1

XE5 MacOS 10.8.5でファイルアクセスを試してみた
作り始める時にUIより気になるのはファイルをどう扱うかと言う部分なんで
ちょっと試しにサンプル書いてみた
var
 iSearch: Integer;
 stDir: String;
 sr: TSearchRec;
begin
 Memo1.Lines.Append(TPath.GetDocumentsPath);
 stDir := IncludeTrailingPathDelimiter(TPath.GetDownloadsPath);
 Memo1.Lines.Append(stDir);
 iSearch := FindFirst(stDir + '*.*', faAnyFile - faDirectory - faSysFile, sr);
 while ( iSearch = 0 ) do
 begin
   Memo1.Lines.Append(sr.Name);
   iSearch := FindNext(sr);
 end;
 FindClose(sr);

end;

MacOSFIleアクセス131018

全くいつものDelphiのコードで書けた
FindFirstもFindCloseも完全にMacOS用にラップされてる

スポンサーサイト

テーマ:プログラミング - ジャンル:コンピュータ

  1. 2013/10/18(金) 18:13:58|
  2. XE5

Profile

Twitter...

最近の記事

ブログ内検索

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。