Fehlersuche

[Jens Hartmann]

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