Alles wird eingelesen .... warte kurz , ich suche mal eben den Source Code...
Delphi-Quellcode:
procedure ZeichenFuerZeichen;
var
i:integer; // Schleifen Zähler
CharsInFile:Integer; // Anzahl der Zeichen insgesammt
AktZeichen:String; // Aktuelles Zeichen
Begin
charsinfile:=form1.richedit1.GetTextLen; // Holt aus dem Richedit Feld Die länge der Zeichen
for i:= 1 to charsinfile do
begin
AktZeichen := Copy(richedit1.text,i,1); // kopiert Zeichen für Zeichen in Variable AktZeichen
End;
End;
Ich denke das wars .....
Justiver