ホーム
Top.Mail.Ru Yandeks.Metrika
フォーラム: "Main";
現在のアーカイブ:2002.01.08;
ダウンロード:[xml.tar.bz2];

ダウン

どうやって? 似ている枝を探す


Xtorm   (2001-12-19 10:40) [0]

ファイルとフォルダのリスト全体を取得する方法は、ドライブで次のように言ってみましょう。
コンポーネントの助けなしでのみ???



Bizon   (2001-12-19 10:46) [1]

FindFirstとFindNextを使用する



Dimka Maslov   (2001-12-19 10:52) [2]

プロシージャFindFiles(パス、マスク:文字列、リスト:TStrings、IncludeSubDir:ブール= True); var SearchRec:TSearchRec; FindResult:整数; 始める List.BeginUpdate; 試してみる パス:= IncludeTrailingBackSlash(パス); FindResult:= FindFirst(パス+ "*。*"、FaAnyFile、SearchRec); 試してみる 一方、FindResult = 0はSearchRecを使用して開始します if(Attr and faDirectory <> 0)then begin IncludeSubDirと(Name <> "..")および(Name <> "。")の場合 FindFiles(パス+名前、マスク、リスト、IncludeSubDir); 他の終わり MatchesMask(名前、マスク)の場合、List.Add(パス+名前); 終わり; FindResult:= FindNext(SearchRec); 終わり; ついに FindClose(SearchRec); 終わり; ついに List.EndUpdate; 終わり; 終わり;



cpp   (2001-12-19 10:53) [3]

だからあなたは私のソースを微調整することができます

プロシージャReadAllFiles(DirFrom:string);
var SearchRecOtkuda:TSearchRec;



プロシージャReadFile(FileName:string);
始まる
//ファイルで何をしたいのか
終わり

プロシージャReadDir(DirName:string);
始まる
//ディレクトリで何をしたいのか
if(DirName <> "。")および(DirName <> "..")then
始まる
ReadAllFiles(DirFrom + "\" + DirName);
終わり
終わり

始まる
FindFirst(DirFrom + "\ *。*"、faAnyFile、SearchRecOtkuda)= 0の場合
始まる
if(faDirectory and SearchRecOtkuda.Attr)> 0 then
ReadDir(SearchRecOtkuda.Name)
ほかに
ReadFile(SearchRecOtkuda.Name);
FindNext(SearchRecOtkuda)= 0 do
始まる
if(faDirectory and SearchRecOtkuda.Attr)> 0 then
ReadDir(SearchRecOtkuda.Name)
ほかに
ReadFile(SearchRecOtkuda.Name);
終わり
終わり
終わり



Xtorm   (2001-12-19 11:39) [4]

おかげで誰もが動作します!!!!



ページ: 1 全枝

フォーラム: "Main";
現在のアーカイブ:2002.01.08;
ダウンロード:[xml.tar.bz2];

2階





メモリ:0.55 MB
時間:0.023 c
1-22262
カティア
2001-12-17 15:25
2002.01.08
ヘルプ


1-22040
グラブ
2001-12-18 18:18
2002.01.08
TRichEditでの位置合わせのテスト


1-22188
アート
2001-12-14 13:09
2002.01.08
大きなファイルの読み方???


3-21985
スカリー
2001-12-06 15:26
2002.01.08
DBGridでの秒のない日付+時間


1-22081
アンドリューフ
2001-12-18 14:14
2002.01.08
システムエラーの発生方法。





アフリカーンス語 アルバニア語 アラビア語 アルメニア語 アゼルバイジャン語 バスク ベラルーシ ブルガリア語 カタルーニャ語 中国語(簡体字) 中国語(繁体字) クロアチア語 チェコ語 デンマーク語 オランダ語 英語 エストニア語 フィリピン語 フィンランド語 フランス語
ガリシア語 ジョージアン ドイツ語 ギリシャ語 ハイチ語 ヘブライ語 ヒンディー語 ハンガリー語 アイスランド語 インドネシア語 アイリッシュ イタリア語 日本語 韓国語 ラトビア語 リトアニア マケドニア語 マレー語 マルタ語 ノルウェー語
ペルシア語 ポーランド語 ポルトガル語 ルーマニア語 ロシア語 セルビア スロバキア語 スロベニア語 スペイン語 スワヒリ語 スウェーデン語 タイ語 トルコ語 ウクライナ語 ウルドゥー語 ベトナム語 ウェールズ語 イディッシュ語 ベンガル語 ボスニア語
セブアノ語 エスペラント グジャラート語 ハウサ語 モン族 イボ ジャワ語 カンナダ語 クメール語 ラオ語 ラテン マオリ語 マラーティー語 モンゴル語 ネパール語 パンジャブ語 ソマリ タミル語 テルグ語 ヨルバ語
ズールー語
Английский Французский Немецкий Итальянский ポルトガル語 Русский Испанский