hey, ich habe versucht mir ein entschlüsselungsprogramm zu schreiben, wobei jeder buchstabe im verschlüsselten Text 'y' buchstaben hat. 'y' ist die erste Zahl in meinem EditFeld 1.
Wenn ich das Programm ausführe funktioniert es erst schon, aber wenn ic auf Button1 Klicke bekomme ich die Meldung
Zitat:
'' ist kein gültiger integer wert
ich weiß einfach nicht wo mein fehler ist ...
hier ist mein Code
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
String2 : string;
y : integer;
Schalter : integer;
begin
// Variablen Deklarieren //
String2 := Copy(Edit2.Text,1, Length(Edit2.Text));
y:= StrToInt(Copy(Edit1.Text,0,1));
Schalter := 0;
x := 1 ;
// Kontrollanzeige//
Edit3.Text := IntToStr(x);
Edit4.Text := IntToStr(y) ;
// String stückeln//
repeat
begin
sTemp1:= Copy(String2, 1, y);
case StrToInt(sTemp) of
1234 : Memo1.Text := Pchar(Memo1.Text + 'a');
5678 : Memo1.Text := Pchar(Memo1.Text + 'b');
end;
String2 := Copy(Edit2.Text,y, Length(Edit2.Text));
y := y+y ;
{Edit3.Text := IntToStr(x);
Edit4.Text := IntToStr(y) ; }
If (y >= (Length(Edit2.Text))) Then
Schalter := 1 ;
End;
until (schalter = 1) ;
end;
ps. Danke schonmal für eure Hilfe