掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Lazarusで'System.Typesが見つかりません'と表示されます。 (ID:149973)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
LazarusにはTDirectoryクラスは無いのではないでしょうか。 FindFirstを使うのは如何でしょうか。 unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls; type { TForm1 } TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; ListBox1: TListBox; procedure Button1Click(Sender: TObject); private public end; var Form1: TForm1; implementation {$R *.lfm} { TForm1 } procedure TForm1.Button1Click(Sender: TObject); var Path: string; SearchPattern: string; f:TSearchRec; ret:Integer; begin // ファイルを列挙したいディレクトリのパス Path:=Edit1.Text; // ファイル名に一致する検索パターン SearchPattern := '*.txt'; ret:=FindFirst(Path+'\'+SearchPattern,0,f); while(ret=0)do begin ListBox1.Items.Add(f.Name); ret:=FindNext(f); end; FindClose(f); end; end.
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.