Edit-Feld auf Inhalt überprüfen

[Chaozu]

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;