Array of Integer?

[Gehstock]

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]