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.