ComboBox - Items.Add mit Zähler

[Freyr77]

Moin!

Ist wahrscheinlich im Endeffekt schon wieder peinlich einfach, aber ich komme gerade einfach nicht drauf.
Ich lese mir aus einer Datenbank Versionsnummern heraus, die ich im nächsten Schritt zusammenfüge und der ComboBox übergebe. Allerdings läuft "FillOne" je nach Einträgen öfter durch, weswegen ich einen Counter habe.

Ziel ist es, dass nach allen durchläufen alle gefundenen Nummern in der ComboBox auswählbar sind.

Code sieht so aus:

Delphi-Quellcode:

begin
  TDBProbleme.Create;
  lUpdateReleaseData := TDBProbleme.GetUpdateReleaseData(RAGData);
  iCounter := 1;
  while lUpdateReleaseData.FillOne do
  begin
    lSQLProduktID := lUpdateReleaseData.ProduktID.ToString;
    lSQLReleaseNr := lUpdateReleaseData.ReleaseNr.ToString;
    lSQLVersionNr := lUpdateReleaseData.VersionNr.ToString;
    lSQLSubverNr := lUpdateReleaseData.SubversionNr.ToString;

    lSQLVersionNumber := lSQlReleaseNr + '.' + lSQLVersionNr + '.' + lSQLSubverNr;

    cmbBoxFrom.Items.Add(lSQLVersionNumber[iCounter]);
    cmbBoxTo.Items.Add(lSQLVersionNumber[iCounter]);

    inc(iCounter);
    gridUpdateLog.RowCount := gridUpdateLog.RowCount+1;
  end;
end;

Es zählt mir jetzt nach jedem Durchlauf die im 1.Durchlauf gefundene Versionsnummer hoch. Also z.B. er findet beim ersten mal 3.4.5.6 - dann macht er nach jedem Durchlauf die letzte Zahl +1.
Und das Endergebnis ist dann total wirr, denn die ComboBox spuckt mir dann
"
3
.
4
.
5
.
6
"
aus, und nicht die Versionsnummern die darin gespeichert werden sollen.

[Uwe Raabe]

Delphi-Quellcode:

lSQLVersionNumber[iCounter]

gibt den Buchstaben an der Stelle

Delphi-Quellcode:

iCounter

im String

Delphi-Quellcode:

lSQLVersionNumber

zurück.

Was erwartest du denn an dieser Stelle?

[Freyr77]

Problem selbst gelöst, es ist gar kein Counter an der Stelle nötig. Komplett falsch gedacht. :thumb: