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