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 ....