Einzelnen Beitrag anzeigen

Benutzerbild von f4k3
f4k3

Registriert seit: 15. Aug 2007
Ort: Nürnberg
313 Beiträge
 
Delphi 2007 Architect
 
#1

Anzahl der Datensätze einer Tabelle ermitteln

  Alt 16. Jan 2008, 16:35
Datenbank: Paradox • Version: 7 • Zugriff über: BDE, Datasource, TTable
Seid gegrüßt liebe DPler

hab folgendes problem ...

ich möchte die Anzahl der Datensätze ermitteln. Dafür hab ich ein Code-Schnipsel von Delphi-Treff
mir geholt und an meine Wünsche angepasst.

Ich erzähl euch mal im groben was ich tun möchte ...

1. Datensätze einer Tabelle ermitteln
2. Counter (Variable vom Typ Integer) auf null setzten
3. Schleife beginnt. Solange mein Counter nicht größer als meine ermittelten Datensätze ist, soll in einer Variable eine Mandantennr (Integer) und in einer Variable die Mandantenbezeichnung(S : String) gespeichert werden
4. Dann möchte ich aus mit ich das in die Variable Mandantenbez (String) (Mandantenbezeichnung die beiden Variablen zusammenführen (bei der Mandantennr(= Integer) über IntToStr)
5. soll in meine ComboBox diese Mandantenbez über ADD in die Items hinzugefügt werden
6. Das solange eben die Schleife läuft (Counter nicht >= meiner ermittelten Datensätze)
7. Schleife wird beendet

mein Quellcode sieht folgendermaßen dafür aus ...
Delphi-Quellcode:
          DatenG := tMandant.RecordCount;
          Counter := 0;

          while not Counter >= DatenG do
          begin

            MandantenNr := tMandant.FieldByName('Mandantennummer').AsInteger;
                       S := tMandant.FieldByName('Bezeichnung').AsString;

            Mandantenbez := IntToStr (MandantenNr) + ' - ' + S;



            with cbMandant.Items do
            begin
               ADD (Mandantenbez);
            end;

            Counter := Counter + 1;

          end;
        end;
nur wenn ich mein programm Compiliere bekomm ich keine Fehler, ergo Programm findet keinen Fehler.
Wenn ich das Programm starte ist meine ComboBox jedoch leer.

Wisst ihr was ich falsch mach?
Ich hab irgendwie den verdacht, dass die Schleife erst gar nicht ausgeführt wird ... weiß aber nicht, wie ich das wiederlegen könnte ...

Ich hoffe ihr wisst, wie immer Rat

Vielen dank scho mal Euer f4k3
Sascha
  Mit Zitat antworten Zitat