Edit-Feld auf Inhalt überprüfen

[Chaozu]

Hi!

Ähm, also ich bin zwar schon lange hier angemeldet, aber irgendwie neu hier..:) Sorry, wenns der falsche Unterforum ist und hier nicht reinpasst... :/

Also ich möchte gerne, dass meine edit.text überprüft wird, ob was geschrieben wurde, bevor ich auf OK klicke. Wenn da nichts geschrieben worden ist, dann soll eine Fehlermeldung kommen, die ich selbst gerne definieren bzw. gestalten möchte.
Im moment ist das so, dass, wenn ich keine Zahl eingebe und dann auf OK klicke, dass da dann eine fehlermeldung kommt wo drinne steht: '' ist kein gültiger Gleitkommawert

Dieses würd ich gern selbst erstellen und würd mich freuen, wenn jemand helfen könnte.

[Marco Haffner]

Indem Du überprüfst, ob Edit1.Text = '' ist.

[Chaozu]

Also mit Edit1.Text = '' überprüfe ich ja, ob was in '' enthalten ist. Somit wäre ja schon das erste prob gelöst.

Wie mach ich denn jetzt, dass, wenn in '' nichts enthalten is, eine Fehlermeldung sprich showMessage kommt?

[flomei]

Delphi-Quellcode:

if
  Edit1.Text = ''
then
  MessageDlg('Sie müssen zunächst etwas eingeben!', mtWarning, [mbOK], 0);
else
//is ja alles prima also brauch da nix stehen
end;

MfG Florian :hi:

[Darty]

Vielleicht so was ?

Delphi-Quellcode:

If Edit1.Text = '' then ShowMessage ('Sorry Du hast nichts reingeschrieben');

Mit meiner Möglichkeit wäre dann nur ein OK Taste ...

[Chaozu]

Also die Logik, worauf ihr hinaus wollt, versteh ich, aber was ich nicht verstehe is, wo das hingeschrieben werden soll. :/

[WooDWorkeR]

du willst bestimt prüfen ob wenn du auf einen button klickst ob das feld mit etwas gefüllt ist

dan schribst du es da hin wo du hingelangst wenn du doppelt auf den button klickst wenn mich meine delphi kenntnisse da nciht trügen.

[Chaozu]

Ja, ich hab doppelklick auf OK gemacht und dann da eingegeben, aber dann sagt der mir entweder false wird nich benötigt, oder es kommt keine fehlermeldung, sondern nur die alte übliche.

[Luckie]

Und was ist bei dir das "übliche"?
Alle hier angebotten Lösungen funktionieren und machen genau das, was du willst.

[Darty]

Nehmen wir mal an Du hast ein Edit1 und ein Button1. Dann muss dieser Code in der "OnClick" (Doppelklick auf Button) reingesetzt werden. Dass würde dann so aussehen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if edit1.text <> '' then ShowMessage ('Du hast was reingeschrieben')
  else ShowMessage ('Du hast NIX reingeschrieben');
end;

Falls Du aber mehr Codes als nur eine Ausgabe brauchst, dann würde es so aussehen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if edit1.text <> '' then
    begin //Hier kommt Codes rein wenn was reingeschrieben wurde.
      ShowMessage ('Du hast was reingeschrieben');
    end
  else
    begin //Hier kommt Codes rein wenn NIX reingeschrieben wurde.
      ShowMessage ('Du hast NIX reingeschrieben');
    end
end;

Im zweiten Fall kannst du zwischen den begin und end weitere Codes einfügen.