Fehlersuche

[gangs-taas]

Delphi-Quellcode:

String2 := Copy(Edit2.Text,1, Length(Edit2.Text)); //was soll denn das hier? Das brauch ich für nen Eintrag weiter unten und ich wusste nicht wohin ich das sonst schreiben soll 
y:= StrToInt(Copy(Edit1.Text,1,1)); //wie bereits erwähnt: Edit1.Text[1] hat denselben Effekt
Schalter := 0;
x := 1 ; {x wird anschließend nie benutzt stimmt hatte ich vergessen löschen (hatte ich aus einer früheren 'version' des Programmes über )}
// String stückeln//
Memo1.Text := '';
repeat
      begin
      sTemp1:= Copy(String2, 1, y); //im ersten Durchlauf also "1", dann "12" usw.
           case StrToInt(sTemp1)  of
           1234 : Memo1.Text := Pchar(Memo1.Text + 'a'); //wieso der Cast nach PChar? okay du hast recht das ist unnötig 
           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'
       2(y); // ja meinte ich
       If (y >= (Length(Edit2.Text))) Then
         Schalter := 1;
       End;
until (schalter = 1);