damit weiß aber doch net ca ,cb u.s.w noch net wie groß sie sind
habs erstmal so das klappt auch und ihr versteht vieleicht besser was ich meine
Delphi-Quellcode:
const
Data:
array[0..4]
of String = ('
Funktionen', '
Prozeduren', '
Units', '
Forms', '
Programme');
implementation
uses Main;
Procedure Count;
var
d: integer;
begin
frmmain.Memo1.Clear;
frmmain.Listbox1.Items.Clear;
for d := 0
to 4
do begin
frmmain.ADOQuery1.Close;
frmmain.ADOQuery1.SQL.Text := '
select * from '+Data[d] ;
frmmain.ADOQuery1.Open;
case d
of
0:ca:=frmmain.ADOQuery1.RecordCount;
1:cb:=frmmain.ADOQuery1.RecordCount;
2:
cc:=frmmain.ADOQuery1.RecordCount;
3:cd:=frmmain.ADOQuery1.RecordCount;
4:ce:=frmmain.ADOQuery1.RecordCount;
end;
frmmain.ADOQuery1.Next;
end;
end;
[edit=Christian Seehase]Delphi-Tags korrigiert. Mfg, Christian Seehase[/edit]