möchte folgende Funktion etwas verkleinern

zusammenfalten · markieren

Delphi-Quellcode:

Procedure Count;
begin
frmmain.Memo1.Clear;
frmmain.Listbox1.Items.Clear;

frmmain.ADOQuery1.Close;
     frmmain.ADOQuery1.SQL.Text := 'select * from Funktionen' ;
     frmmain.ADOQuery1.Open;
      ca:=frmmain.ADOQuery1.RecordCount;
        frmmain.ADOQuery1.Next;

frmmain.ADOQuery1.Close;
     frmmain.ADOQuery1.SQL.Text := 'select * from Prozeduren';
     frmmain.ADOQuery1.Open;
      cb:=frmmain.ADOQuery1.RecordCount;
        frmmain.ADOQuery1.Next;

frmmain.ADOQuery1.Close;
     frmmain.ADOQuery1.SQL.Text := 'select * from Units';
     frmmain.ADOQuery1.Open;
      cc:=frmmain.ADOQuery1.RecordCount;
        frmmain.ADOQuery1.Next;

frmmain.ADOQuery1.Close;
     frmmain.ADOQuery1.SQL.Text := 'select * from Forms';
     frmmain.ADOQuery1.Open;
      cd:=frmmain.ADOQuery1.RecordCount;
        frmmain.ADOQuery1.Next;

frmmain.ADOQuery1.Close;
     frmmain.ADOQuery1.SQL.Text := 'select * from Programme';
     frmmain.ADOQuery1.Open;
      ce:=frmmain.ADOQuery1.RecordCount;
        frmmain.ADOQuery1.Next;

end;

mit

zusammenfalten · markieren

Delphi-Quellcode:

const
   Data: array[0..4] of String[10] = ('Funktionen', 'Prozeduren', 'Units', 'Forms', 'Programme');
   Counts: array[0..4] of Integer = (ca, cb, cc, cd, ce);

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;
      Counts[d]:=frmmain.ADOQuery1.RecordCount;
        frmmain.ADOQuery1.Next;
                      end;

bokomme aber bei den Counts diesen Fehler ->[DCC Fehler] DBtools.pas(22): E2026 Konstantenausdruck erwartet

wenn ich vorher sag ca:=0; u.s.w. gehts gibt es noch eine bessere lösung

Moin Gehstock,

markieren

Delphi-Quellcode:

const
  Counts: array[0..4] of Integer = (ca, cb, cc, cd, ce);

Was hältst Du davon:

markieren

Delphi-Quellcode:

var
  Counts: array[0..4] of Integer;

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

zusammenfalten · markieren

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]

Moin Gehstock,

Zitat von 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

das ist schon klar, dass die Variablen ca ... damit nicht gefüllt werden.
Das Array ist ja auch als Ersatz für diese zu verstehen.

Um die Anzahl der Datensätze zu bestimmen sollte man ein Select count(*) from ...

RecordCount ist nur dann gültig wenn die Datensätze entweder schon beim Client gelandet sind (Netzwerkbelastung bei großen Tabellen) oder vom Server eine Temporäre Tabelle (MS SQL Server) erzeugt wurde (Serverlast) oder erst wenn wirklich der Curser bis zum letzten Datensatz bewegt wurde (Fall A).