Einzelnen Beitrag anzeigen

Benutzerbild von Matze
Matze
(Co-Admin)

Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
 
Turbo Delphi für Win32
 
#15

Re: Probleme mit einem Rechner

  Alt 4. Okt 2007, 16:01
Kann es sein, dass in einem der Edits nichts steht? Das musst du noch überprüfen (bsp. mit Delphi-Referenz durchsuchenTryStrToFloat).

Des weiteren wäre es evtl. sinnvoll, wenn du Delphi-Referenz durchsuchencase of anstelle der vielen if nutzen würdest, wie du es an anderen Stellen im Code auch machst:

Delphi-Quellcode:
case lol of
  1: begin

     end;
  2: begin

     end;
  // ...
end;
Auch das könntest du vereinfachen:

Delphi-Quellcode:
case Combobox1.ItemIndex of
0: lol := 1;
1: lol := 2;
2: lol := 3;
3: lol := 4;
end;
und zwar so:

lol := Combobox1.ItemIndex + 1;
  Mit Zitat antworten Zitat