bütün editlere tek kod

[loxka]

Formda 7 tane edit'im var, eğer editlerin hepsi boşsa Query1.active:= false olacak.
Tek tek editleri yazarak müdahale edebiliyorumda tek bir kodla aynı anda nasıl yapabilirim.

[oyle]

Belki baska yontemi vardir, benim kullandigim yontem:

Kod: Tümünü seç

var
i : Word;
bos:boolean;
begin
  bos:=true;
for i:=1 to 7 do
begin
if findcomponent('edit'+inttostr(i)) is Tedit  then
 if tedit(findcomponent('edit'+inttostr(i))).text <>'' then
  bos:=false;
end;
if bos=true then
query1.active:=false;

veya son kisim

Kod: Tümünü seç

query1.active:=bos; 

seklindede olabilir

Biraz uzun mu oldu

[ulu coder]

Selam

Kod: Tümünü seç

  var
    i: Integer;
begin
  Query.Active := False;
  for i := 0 to pred(ComponentCount) do
    if (Components[i] is TEdit) then
      if not((Components[i] as TEdit).Text = '') then
        Query.Active := True;
end;

Kolay gelsin...

(Anlaşılmayan bi şey olursa, burdayız )