Entwickler-Ecke

Sonstiges (Delphi) - Zähler in StringReplace


Simu - Mo 19.07.04 13:24
Titel: Zähler in StringReplace
Hallo

Kann mir jemand sagen, wie ich bei der funktion StringReplace einen Zähler einbauen kann, der immer um 1 hochzählt wenn ein zeilenumbruch erstellt wurde? Denn Zähler möchte ich dann in einem Label anzeigen.
Vielen Dank

mfg Simu


Hier noch mein Code:


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
   for i:=0 to dateiliste.Count-1 do begin
    SRFile:= dateiliste[i];
    sl.LoadFromFile(Dir+'\'+SRFile);  //Dateien werden geöffnet
    RFile:= sl[0];
    RFile:=StringReplace(RFile, #10,#13#10,[rfReplaceAll]);  //Windows Zeilenumbrüche werden erstellt
    sl[0]:= RFile;
    sl.SaveToFile(Dir+'\'+SRFile+'.txt'); //Dateien werden gespeichert
   end;


Moderiert von user profile iconTino: Code- durch Delphi-Tags ersetzt.


Delete - Mo 19.07.04 13:35

Da musst du dir wohl einen eigenen StringReplace Ersatz bauen.


Simu - Mo 19.07.04 13:39

OK danke...
Mal schauen ob ich das kann :-)


StefanH - Mo 19.07.04 15:08

bzw Zählen, wie oft #10 vorkommt


Simu - Mo 19.07.04 15:36

Ja sowas dürfte gehen, aber ich möchte wärend dem erstellen der zeilenumbrüche jedes mal um 1 hochzählen, wenn ein umbruch gemacht wird, damit ich den Vortschritt sehe wenn das prog. läuft. Die datei ist in etwa 70MB gross und das prog. läuft etwa 1/2 Stunde :-)