|
Registriert seit: 24. Mär 2003
Ort: Freiburg im Breisgau
317 Beiträge
Delphi 7 Professional
|
17. Jun 2003, 15:39
Versuchs mal mit
Delphi-Quellcode:
procedure TForm7.Button2Click(Sender: TObject);
begin
if (edit2.text='') then
begin
showmessage('Bitte geben sie eine Zahl ein');
edit2.setfocus;
exit; //Das müsste die Buttonklick eigentlich beenden
end
//du brauchst dann auch kein else mehr
w[2]:=StrToFloat(Edit2.text);
if w[2]=w[1]*100
then RichtigEdit2
else FalschEdit2;
end;
If one coincidence can occur, then another coincidence can occur. And if one coincidence happens to occur just after another coincidence, then that is just a coincidence.
DNA
 www.Anyxist.de
|