Hallo,
um das ganze mit dem übersichtlich machen mal zu erklären, du könntest deinen Quellcode z.B. so aufbauen.
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
Start : string;
Schlüssel : integer;
Schalter: integer;
Temp1 : string;
Temp2 : integer ;
begin
Start := Copy(StartEdit.Text,1, Length(EndEdit.Text));
Schlüssel:= StrToInt(Copy(StartEdit.Text,1,1));
Schalter := 0;
NochEinEdit.Text := '';
if Schlüssel = Schalter then
begin
ShowMessage('Das ist mein Code');
end
else
begin
ShowMessage('Das ist ein andere Text');
end;
end;
Dieser Code hat jetzt mit deinem Code nichts zu tun, er sollte dir nur mal zeigen, wie man einen Code vernünftig aufbauen kann. Wichtig wäre es, wenn Du als erstes deinen Var. mal aussagekräftige Namen gibst. Dann weiß man nämlich schon was die machen sollen. Und wenn du dann noch den Code passend setzen tust, ist dieser auch übersichtlicher und man kann besser helfen.
Gruß Jens