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