Fehlersuche

[gangs-taas]

hey,
ich hab schon wieder ein Problem was ich einfach nicht verstehe.


(in meinem Edit2 steht nun 12345678)

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) ;

außerdem steht in dem memo-feld hinterher nicht 'ab' wie ich es will sondern nur 'a'
das ist sehr komisch


ich versteh das Programm einfach nicht ....