Edit-Feld auf Inhalt überprüfen

[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.