Umgang mit Textdatei

[justiver]

moin ....

ne Möglichkeit wäre :


Per Schleife Zeichen für Zeichen auszulesen

Delphi-Quellcode:

procedure ZeichenZaehlen;
Var
  AnzahlZeichenInText:Integer; // klar oder ?
  AktZeichen:Integer;
Begin
  AnzahlZeichenInText:=form1.Richedit1.gettextlenght // Beim Richedit Feld
  For i:= 1 to AnzahlZeichenInText do
  Begin
    AktZeichen:=copy (blabla,1,i) //oder so ähnlich
  end
End;

musste ausprobieren
Ich muß kurz mal meinen Source durchkramen ..
Ich glaube (weiß) ich hab' das schon mal gemacht !
werde meinen Beitrag Korrigieren , wenn ich's gefunden habe.
Gruß Justiver