for schliefe baut komische zeichen ein

[Klaus01]

Hallo Christian,

vielleicht kannst Du ja damit ewtas anfangen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j: Integer;
  s:String;
  leerstring:String;
begin
  leerString:='';
  for i:=1 to 2*length(edit1.text) do
    leerString:=leerString+' ';

  s:=leerString;
  i:=0;
  while not checkbox1.checked do
    begin
      inc(i);
      if i=length(leerString) then
        begin
          i:=1;
          s:=leerString;
        end;

      // Buchstaben eine Stelle vorrücken
      for j:=1 to length(edit1.Text) do
        s[j]:=s[j+1];
      // einen Buchstaben hinzufügen
      s[length(edit1.Text)]:=edit1.Text[i];
      label1.Caption:=s;
      application.processMessages;
      sleep(100);
    end;

end;

Grüße
Klaus