Wörterbuch Datei

[Delphi-Narr]

Sieht gut aus, nur kennt mein Delphi sLineBreak nicht, muss ich da was bei uses hinzufügen?

@himitsu:

Ich hab das Programm zum Anfragen ja fertig, muss also nur noch die entsprechende Datei laden. Außerdem ist das für selbsterstellte Dateien einfacher, da diese ' :: ' schon nervig sind, wenn du die immer schreiben musst.

[DeddyH]

Dann definier Dir die Konstante einfach.

Delphi-Quellcode:

const sLineBreak = #13#10;

[Delphi-Narr]

Ah, mir fehlten die Werte für den Umbruch... Danke.
Weißt du, wie lange das bei ca. 750000 Zeilen dauern wird? Die .txt ist 7.5 MB groß.

[DeddyH]

In Sekunden kann ich Dir das nicht sagen, das hängt ja wohl auch von der Rechnerkonfiguration ab, aber ich kann mir vorstellen, dass das schon einige Zeit braucht.

[Delphi-Narr]

Da bin ich ja mal gespannt... Ich leg mal die Stoppuhr daneben :)

Danke!

[Delphi-Narr]

Das läuft jetzt schon seit einer Stunde...
Im Taskmanager steht Keine Rückmeldung
Liegt das daran, dass sich das Prog in einer elend langen Prozedur befindet und während einer Aufgabe keine Rückmeldung gibt? CPU ist die ganze Zeit bei 100%...

[DeddyH]

Eine Stunde erscheint mir auch bei 7,5 MB etwas viel. Vielleicht solltest Du mal je Schritt eine Meldung ausgeben lassen, damit Du siehst, was da so lange dauert.

[Delphi-Narr]

Ich hatte überlegt, einen Balken zu benutzen. Also am ehesten eine ProgressBar, aber der führt diesen Befehl doch direkt aus, oder:

Delphi-Quellcode:

try 
        SL.LoadFromFile(vOrt);//Datei wird in die Liste geladen 
        SL.Text := StringReplace(SL.Text,' :: ',sLineBreak,[rfReplaceAll]); 
        SL.SaveToFile(vZiel); 
finally

Das ist ja keine Schleife...
Kann man das auch als for-Schleife machen und immer noch den StepBy vom Ladebalken um einen erhöhen?

[DeddyH]

Dazu müsstest Du Dir Dein eigenes StringReplace schreiben.

[Delphi-Narr]

Also man kann nicht für SL.text Sl[i] einsetzen, sodass sich das nur auf die eine Zeile bezieht?