okay
stimmt.
hab das nun so umgeändert. nun funktioniert das, dass ich hitnher her z.b. abc angezeigt bekomme nur kriegt ich nun - wieder- die fehlermeldung '' ist kein gültiger integer-wert.
durch breakpoints weiß ich dass er in der zeile ist, die ich auch verändert habe.. ich weiß nur nicht wieso ...
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
String2 : string;
y : integer;
Schalter : integer;
sTemp1 : string;
sTemp : integer ;
x: integer; // später stat 'y'
begin
// Variablen Deklarieren //
String2 := Copy(Edit2.Text,1, Length(Edit2.Text));
y:= StrToInt(Copy(Edit1.Text,1,1));
Schalter := 0;
Edit3.Text := '';
Va := 1234;
Vb := 5678;
vc := 9101;
x := y ; // hier ist mein fehler drin ... wobei 'y' ja eigendlich integer ist und x dann ja auch sein müsste oder ?
// String stückeln//
repeat
begin
sTemp1:= Copy(String2, 1, y);
sTemp := StrToInt(sTemp1);
If (sTemp = Va) Then (Edit3.Text := Edit3.Text + 'a');
If (sTemp = Vb) Then (Edit3.Text := Edit3.Text + 'b');
If (sTemp = Vc) Then (Edit3.Text := Edit3.Text + 'c');
inc(x) ;
String2 := Copy(Edit2.Text,x, Length(Edit2.Text));
If (y >= (Length(Edit2.Text))) Then
Schalter := 1 ;
End;
until (schalter = 1) ;
If (Schalter = 1) Then
ShowMessage('Fertig');
end;