Fehlersuche

[gangs-taas]

Delphi-Quellcode:

String2 := Copy(Edit2.Text,1, Length(Edit2.Text));
y:= StrToInt(Copy(Edit1.Text,1,1));
Schalter := 0;
x := 1 ;
// String stückeln//
Memo1.Text := '';
repeat
      begin
      sTemp1:= Copy(String2, 1, y);
           case StrToInt(sTemp1)  of
           1234 : Memo1.Text := Pchar(Memo1.Text + 'a');
           5678 : Memo1.Text := Pchar(Memo1.Text + 'b');
           end;
       String2 := Copy(Edit2.Text,(y+1), Length(Edit2.Text));   // String jetzt nur noch von 'einer Zahl nach y' bis zum ende'
       y := y+y    ; // Wenn ich diese Zeile entferne (habe gemerkt dass sie sinnlos ist) hängt sich das Programm auf
       If (y >= (Length(Edit2.Text))) Then
       Schalter := 1  ;
       End;
until (schalter = 1) ;

so besser ?
wo muss ich das y entfernen ? ich will ja nur machen, das y nicht mehr y+y ist (da unten ...)
aber wenn ich das lösch hängt sichm ien programm auf