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.56 MB
Zeit: 0.023 c
7-22442
Alexei
2001-09-26 15:20
2002.01.08
Wie kann ich feststellen, ob ein Modem vorhanden ist?


1-22015
Jäger
2001-12-17 13:17
2002.01.08
Bild zum Drucker


6-22280
rg
2001-10-06 13:26
2002.01.08
Wie akzeptiere ich eine Nachricht von Winpopup (Chat für lokalki)?


1-22179
ikar
2001-12-21 09:10
2002.01.08
Wie man durch Wurzelknoten in TTreeView iteriert?


3-21951
Olban
2001-12-05 11:07
2002.01.08
Verwenden Sie QuantumGrid





Afrikanisch Albanien Arabisch Armenisch Aserbaidschanisch Baskisch Weißrusse Bulgarian katalanisch Chinesisch (vereinfacht) Chinesische Tradition) kroatisch Tschechisch Dänisch Dutch Englisch estnisch Philippinisch Finnish Französisch
Galicisch Georgisch Deutsch Griechisch haitian Creole Hebräisch Hindi ungarisch isländisch Indonesian irisch Italian Japanisch Koreanisch lettisch litauisch Makedonisch Malay Maltesisch Norwegian
persisch Polnisch Portugiesisch Rumänisch Russisch serbisch Slovakisch Slowenisch Spanisch Suaheli Swedish 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