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

ダウン

コードはwin273で `2000ファイルを作成しなくなりました 似ている枝を探す


Dmitriy(new)   (2001-12-13 19:37) [0]

コードはwin273で `2000ファイルを作成しなくなりました

procedure TForm1.Button1Click(送信者:TObject);
var SearchRec:Tsearchrec; f:ファイル; b:バイトの配列[0..16383]。 S、ショートネーム、FileName:string; I、ExtNum、サイズ:整数。
始まる
//アーカイブディレクトリを作成します(存在しない場合)
FileName:= "RAMIZ.RCV"; GlobalStop:= False;
{$ i-} // chdir( ".."); createdir( "R"); chdir( ".."); {$ i +}
//ファイルを読み取ります
Iの場合:= 1 To 50000 Do Begin
GlobalStop Then Breakの場合;
Label1.Caption:= inttostr(i); Application.ProcessMessages;
assignfile(f、FileName); リセット(f、1); blockread(f、b、16384、サイズ); closefile(f); //消去(f);
ExtNum:= 1000; ShortName:= ".. \ r \ RAMIZ";
繰り返す
inc(ExtNum); S:=ショートネーム+ inttostr(ExtNum)+ "。RCV";
findfirst(S、$ 3f、SearchRec)<> 0まで。
assignfile(f、S);
書き換え(f、1);
blockwrite(f、b、サイズ);
closefile(f);
終わり
終わり



Dmitriy(new)   (2001-12-13 20:23) [1]

そして誰も理解できない



Dmitriy(new)   (2001-12-13 20:40) [2]

ヘルプ!!!!



Макс Черных   (2001-12-13 22:47) [3]

1。 ある種の素晴らしいコード。
2。 すぐに目を引くもの:
繰り返す inc(ExtNum); S:=ショートネーム+ inttostr(ExtNum)+ "。RCV"; findfirst(S、$ 3f、SearchRec)<> 0まで。 // <<<< ----- assignfile(f、S);
findfirstを呼び出すたびに、FindCloseを呼び出す必要があります。
それ以外の場合は、リソースを使用せずにシステムを非常に迅速に終了できます。
ヘルプセクション「FindFirst関数」を参照してください。






Ю.Ю.   (2001-12-14 06:52) [4]

同じファイル "RAMIZ.RCV"を50000回読み取るのはなぜですか?
Rewriteが呼び出された場合、なぜファイルを検索するのですか?
Rewriteは、Fに割り当てられた名前で新しい外部ファイルを作成します。
同じ名前の外部ファイルがすでに存在する場合、そのファイルは削除され、新しい空のファイルがその場所に作成されます。



Dmitriy(new)   (2001-12-16 09:38) [5]

>マックス・チェルニーク©

感謝

Win 2000ではコードにバグがあると思いました
assignfile(f、FileName); リセット(f、1); blockread(f、b、16384、サイズ); closefile(f);

>ゆうゆう

テスト例



ページ: 1 全枝

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

2階





メモリ:0.55 MB
時間:0.024 c
6-22308
イゴール
2001-10-14 09:44
2002.01.08
Delphiのクライアントとサーバー間のデータ交換


14-22395
エイリアン
2001-11-07 01:15
2002.01.08
混乱は順序とどう違うのですか?


4-22501
アート
2001-11-02 08:30
2002.01.08
特定のApiを他のアプリケーションに使用することを禁止することは可能ですか?


14-22415
ウェットノーズ
2001-11-12 06:42
2002.01.08
WinXPのテーマ


4-22492
ネバービー
2001-11-06 12:11
2002.01.08
Word文書を開く(+)





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