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.