Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - TEdit leer??


MKSlayer - Di 08.07.08 12:36
Titel: TEdit leer??
Also ich habe folgendes Problem will es 5 edit komponenten was an ne DB schicken nun möchte ich aber vorher prüfen ob in den Edit komponenten etwas drin steht,.

kann man das irgendwie überprüfen


Gausi - Di 08.07.08 12:39

if (edit1.text = ''or (edit2.text = ''then ...

Ggf. in Verbindung mit Trim.


MKSlayer - Di 08.07.08 12:58

achso einfach geht das,,, alles klar danke dir


Delete - Di 08.07.08 13:21

Sollten die Eingabefelder fortlaufen durchnummeriert sein geht es auch so:

Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 1 to 3 do
  begin
    if Tedit(FindComponent('edit' + InTtoStr(i))).Text = '' then
    begin
      ShowMessage(Format('Eingabefeld Nr. %d ist leer.', [i]));
    end;
  end;
end;


Yogu - Di 08.07.08 15:37

user profile iconLuckie: Das hieße ja, dass die Komponenten Edit1, Edit2 und Edit3 heißen. :roll:


Hidden - Di 08.07.08 15:39

imho wenn es so sein soll einfach einmal ein Array of TEdit definieren :!:


Blackheart666 - Di 08.07.08 15:47

user profile iconYogu hat folgendes geschrieben:
user profile iconLuckie: Das hieße ja, dass die Komponenten Edit1, Edit2 und Edit3 heißen. :roll:

Edit nicht unbedingt aber durchnummeriert. :wink: