falsch:
for iFor := 0 to Length(Text) -1 do
richtig:
for iFor := 1 to Length(Text) do
Delphi-Quellcode:
... begin
Text := Text + '.';
end;
end;
1) Was soll das bewirken? Für die Anzahl der Zeichen hänge ein Punkt dahinter?
2) Eine Änderung von Text ruft Change auf. Das ganze ist also eine Endlosschleife.