Alle Edit-Felder auf Eingaben prüfen

[Sharky]

Hai Ati,

ich würde es so machen:

Delphi-Quellcode:

function EditTest(const aEdit : TEdit): boolean;
begin
  result := Length (aEdit.Text) > 0;
end;

function DateEditTest(aDateEdit : TJvDateEdit): Boolean;
begin
  result := true; // Ein Passender Code
end;

function MaskEditTest(aMaskEdit : TMaskEdit): Boolean;
begin
  result := true; // und noch ein Code;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  test: Boolean;
  i : integer;
  tmpComponent : TComponent;
begin
  test := True;

  for i := 0 to ComponentCount -1 do
  begin
    tmpComponent := Components[i];
    if (tmpComponent is TEdit) then // Test des Edit
    begin
      test := EditTest (tmpComponent as TEdit);
    end;

    if (tmpComponent is TJvDateEdit) then // Test des DateEdit
    begin
      test := DateEditTest (tmpComponent as TJvDateEdit);
    end;

    if (tmpComponent is TMaskEdit) then // Test des MaskEdit
    begin
      test := MaskEditTest (tmpComponent as TMaskEdit);
    end;

    if not (test) then
    begin
      break;
    end;
  end;

  if not (Test) then
  begin
    ShowMessage('Fehler bei der Eingabe');
  end;
end;

Ich habe also für jede zu prüfende Komponente eine Testfunktion welche man sich noch ausprogrammieren muss.