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.82 MB
Zeit: 0.03 c
1-22141
N
2001-12-20 10:04
2002.01.08
C -> Pascal: Funktionszeiger innerhalb der Struktur


1-22215
VovaKomarov
2001-12-16 13:36
2002.01.08
Client-Update


1-22144
Shornik
2001-12-20 11:36
2002.01.08
Meister !!!! Bitte helfen Sie mit dem Problem!


14-22390
der Igel
2001-11-08 12:54
2002.01.08
Hör zu Merlin, schläfst du jemals? In gewissem Sinne entspannend?


4-22508
Gluka
2001-11-06 00:18
2002.01.08
Ist es möglich, den Cursor über das Fenster eines anderen Benutzers zu bewegen?





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