|
Registriert seit: 23. Feb 2005
Ort: Kaiserslautern
279 Beiträge
Delphi 2009 Enterprise
|
Re: Taschenrechner?
24. Okt 2006, 20:06
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
zahl1, zahl2, ergebnis: Extended; //<-- Extended-Datentyp
begin
zahl1 := StrToFloat(Edit1.Text);
zahl2 := StrToFloat(Edit2.Text);
ergebnis := zahl1 * zahl2;
Label4.Caption := FloatToStr(ergebnis);
end;
end.
Es gibt nur sehr wenige Probleme auf dieser Welt, die sich nicht mit einigen hundert Gramm Sprengstoff lösen ließen.
|