Zähler in StringReplace

Simu · Beiträge: 28

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:

markieren

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 Tino: Code- durch Delphi-Tags ersetzt.

Ehemaliges Mitglied Erhaltene Danke: 1

Da musst du dir wohl einen eigenen StringReplace Ersatz bauen.

Simu · Beiträge: 28

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

StefanH · Verfasst: Mo 19.07.04 15:08

bzw Zählen, wie oft #10 vorkommt

_________________
"Als es noch keine Computer gab, war das Programmieren noch relativ einfach."(Edsger W. Dijkstra)
"Ich bin nicht von Sinnen, sondern ich rede wahre und vernünftige Worte." (Paulus)

Simu · Beiträge: 28

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 :-)

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme