Edit feld auf eingabe überprüfen?

[Sharky]

Hai ihr,

warum sich das leben so schwer machen? Einfach mit Trim oder TrimLef arbeiten.

Delphi-Quellcode:

procedure TDemoForm.btn_CheckEditClick(Sender: TObject);
begin
  if  (TrimLeft(edt_1.Text) = '') then
  begin
    ShowMessage('Fehler bei der Eingabe');
  end;
end;