[Delphi] Jak sprawdzić w pętli czy DBEdity są wypełnione

0

Mam kilkanaście DBEdit'ów i chciałbym sprawdzić w pętli czy w każdym jest wpisana wartość.

Nie wiem jak się odwołać do następnego DBEdit'a ;(

Zrobiłem sprawdzanie pól rekordu ale... da się oszukać (wpisując i kasując wartość) więc to odpada.

Poproszę o jakąś podpowiedź.

0

poszukaj czegos o indeksowaniu komponentow...

0

No proszę, trochę snu, trafna sugestia (czarownik - dzięki [browar] , czaruj tak dalej) i udało się, nawet nie bolało :)
Może komuś się przyda poniższy kod.

procedure TForm2.Button1Click(Sender: TObject);
var
  i : integer;
  s,t : string;
begin
for i:=0 to ComponentCount -1 do
  if Components[i] is TDBEdit then
    if TPanel(Components[i]).GetTextLen = 0 then
      begin
        case i of
          14: s := '=> Identyfikator Firmy';
          15: s := '=> Nazwa Firmy'; //tego jest więcej ale szkoda miejsca
        end;
           t := t + s + #13;
      end;
   if t <> '' then
     ShowMessage('Poniższe pola muszą być wypełnione:' +#13 + t);
end;

1 użytkowników online, w tym zalogowanych: 0, gości: 1