Alle Edit-Felder auf Eingaben prüfen

[mgubler]

So in etwa aus dem Kopf gegriffen habe ich mal etwas gelöst.
Zwar kompliziert, aber in PHP hat es wunderbar geklappt!

Delphi-Quellcode:

...
var
 bErrFeld1,
 bErrFeld2,
 bErrFeld3,
 bErrFeld4,
 bErrFeld5,
 bErrFeld6,
 bErrFeld7,
 bErrFeld8: boolean;
//hier alle auf true setzen!
...

 sErrMsg1,
 sErrMsg2,
 sErrMsg3,
 sErrMsg4,
 sErrMsg5,
 sErrMsg6,
 sErrMsg7,
 sErrMsg8: string;

 sErrAll: string;

begin

if (edit1.text <> '') then
begin
   bErrFeld1 := false;
end
else
begin
   sErrMsg1 = 'Feldname';
end;

...

if (bErrFeld1 = true) OR (bErrFeld2 = true) OR (bErrFeld3 = true).... then
begin
  if (bErrFeld1 = true) then sErrAll := 'Name des Ersten Feldes';
  if (bErrFeld2 = true) then sErrAll := sErrAll+#13#10+'Name des zweiten Feldes';
...

Showmessage('Nachfolgende Felder müssen auf Ihren Inhalt geprüft werden:' + #13#10+ sErrAll);
end;
end;