Irgendwie versteh ich die letzten 3 Antworten net
Vielleicht hilfts ja, wenn ich mal die Unit1 poste. Also hier is nur ein Teil von 2...ich hab nämlich 2 Buttons und 2 edit.text! Einen für Euro -> DM und einen für DM -> Euro
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
// Umrechnung Mark in Euro
// Variablendefinition
var Mark, Euro : double;
begin
if edit1.text <> '' then
begin // Code, wenn etwas hinein geschrieben wurde
// Eingabe in das Eingabefeld wird in der Variablen Mark abgespeichert
Mark := StrToFloat(edit1.text);
// Umrechnung in Euro
Euro:=0.51129*Mark;
// Ausgabe des Ergebnisses
showMessage('Betrag in Euro: '+FloatToStrF(Euro,ffNumber,10,2));
end
else
begin // Code, wenn nichts hinein geschrieben wurde
showMessage ('Du hast keinen Betrag eingegeben!');
end
end;