Nach Hause
Top.Mail.Ru Yandeks.Metrika
Forum: "Haupt";
Aktuelles Archiv: 2002.01.08;
Herunterladen: [xml.tar.bz2];

Nach unten

Der Code erstellt keine weiteren `273-Dateien in win2000 Finden Sie ähnliche Zweige


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

Der Code erstellt keine weiteren `273-Dateien in win2000

Prozedur TForm1.Button1Click (Sender: TObject);
var SearchRec: Tsearchrec; f: Datei; b: Array [0..16383] von Byte; S, Kurzname, Dateiname: Zeichenfolge; I, ExtNum, Größe: Ganzzahl;
beginnen
// Das Archivverzeichnis erstellen (falls nicht vorhanden)
Dateiname: = "RAMIZ.RCV"; GlobalStop: = False;
{$ i -} // chdir (".."); createir ("R"); chdir (".."); {$ i +}
// lese die Datei
Für I: = 1 nach 50000 beginnen
Wenn GlobalStop dann brechen;
Label1.Caption: = inttostr (i); Application.ProcessMessages;
Zuordnungsdatei (f, Dateiname); zurücksetzen (f, 1); Blockread (f, b, xnumx, Größe); closefile (f); // löschen (f);
ExtNum: = 1000; Kurzname: = ".. \ r \ RAMIZ";
wiederholen
inc (ExtNum); S: = Kurzname + Inttostr (ExtNum) + ". RCV";
bis findfirst (S, $ 3f, SearchRec) <> 0;
Zuordnungsdatei (f, s);
umschreiben (f, 1);
Blockschreiben (f, b, Größe);
closefile (f);
end;
end;



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

und das kann niemand verstehen



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

Hilfe !!!!



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

1. Wunderbarer Code irgendeiner Art.
2. Was sofort ins Auge fällt:
wiederhole inc (ExtNum); S: = Kurzname + Inttostr (ExtNum) + ". RCV"; bis findfirst (S, $ 3f, SearchRec) <> 0; // <<<< ----- Zuordnungsdatei (f, s);
Jeder Aufruf von findfirst muss einem Aufruf von FindClose entsprechen.
Andernfalls können Sie das System sehr schnell ohne Ressourcen verlassen.
Siehe Hilfe-Abschnitt: "FindFirst-Funktion"






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

Warum liest 50000 dieselbe Datei "RAMIZ.RCV" einmal?
Warum nach einer Datei suchen, wenn Rewrite aufgerufen wird?
Die Umschreibung wird F zugewiesen.
Es wurde an seiner Stelle geschaffen.



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

> Max Black ©

danke

Ich dachte, dass in Win 2000 der Code fehlerhaft ist
Zuordnungsdatei (f, Dateiname); zurücksetzen (f, 1); Blockread (f, b, xnumx, Größe); closefile (f);

> Y. Yu.

Testfall



Seiten: 1 ganze Branche

Forum: "Haupt";
Aktuelles Archiv: 2002.01.08;
Herunterladen: [xml.tar.bz2];

nach oben









Speicher: 0.57 MB
Zeit: 0.027 c
14-22324
Yuraz
2001-11-04 11:37
2002.01.08
IP-Geographie


14-22371
Dicht
2001-11-08 17:11
2002.01.08
Leben nach dem Tod


14-22413
ENG
2001-11-11 21:27
2002.01.08
CD-RW


1-22023
Delphig
2001-12-13 03:13
2002.01.08
Bei mir ? aus dem thema. Für welches OS Delphi eignet sich am besten?


4-22480
amamed_3071
2001-11-03 10:09
2002.01.08
Drucken Sie auf einem Epson-Drucker





Afrikanisch Albanien Arabisch Armenisch Aserbaidschanisch Baskisch Weißrusse Bulgarisch katalanisch Chinesisch (vereinfacht) Chinesische Tradition) kroatisch Tschechisch Dänisch Niederländisch Englisch estnisch Philippinisch Finnisch Französisch
Galicisch Georgisch Deutsch Griechisch haitian Creole Hebräisch Hindi ungarisch isländisch Indonesian irisch Italian Japanisch Koreanisch lettisch litauisch Makedonisch Malay Maltesisch Norwegisch
persisch Polnisch Portugiesisch Rumänisch Russisch serbisch Slovakisch Slowenisch Spanisch Suaheli Schwedisch Thai Türkisch Ukrainisch Urdu Vietnamesisch Walisisch Jiddisch Bengalisch bosnisch
cebuano Esperanto Gujarati Hausa Hmong igbo Javanisch kannada khmer Laotisch Lateinisch Maorisch Marathi Mongolisch nepali Pandschabi Somalisch Tamilisch Telugu Yoruba
Zulu
Английский Französisch Deutsch Italienisch Португальский Russisch Spanisch