Hallo.
Ich habe folgendes Problem:
Ich habe ein Programm, dass Update-Logs aus der Datenbank holen soll. Hier bestimmt der Nutzer welche Versionen letztendlich im Grid angezeigt werden sollen. Deshalb habe ich 2 Comboboxen, die die Versionsnummern des gewählten Produkts aus der Datenbank holt. Danach soll der Nutzer auswählen und mit ok bestätigen. Jetzt habe ich das Problem, dass der Vergleich dieser Nummern mit der Datenbank nicht funktioniert.
Das
SQL - Statement sieht so aus: (jede Nummer ist aufgesplittet in 4 Spalten - also Version1: 1 Version2: 2 Version3: 3 Versions 4: 4 z.B.(Nummer: 1.2.3.4)
Delphi-Quellcode:
' (ErledigtVersion1 > '+verNrFrom +' AND ErledigtVersion1 < ' +verNrTo + ')'+
' AND (ErledigtVersion2 > ' +verNrFrom2 +' AND ErledigtVersion2 < ' +verNrTo2+ ')'+
' AND (ErledigtVersion3 > ' +verNrFrom3 +' AND ErledigtVersion3 < ' +verNrTo3+ ')'+
' AND (ErledigtVersion4 > ' +verNrFrom4 +' AND ErledigtVersion4 < ' +verNrTo4+ ')';
Die Nummern sind von der länge her leider alles andere als einheitlich. So habe ich z.B. die Suche von 4.12.13 zu 5.0.1 .
Mein Problem sind also die Punkte dazwischen. Ich möchte die Nummern gerne in einer Schleife einzeln rauspicken und den Variablen "verNrTo/From.." zuweisen. Leider scheitere ich ständig an der verschiedenen Anzahl an Ziffern zwischen den Punkten.
Mein letzter gescheiterter Versuch sah so aus, ich bin aber auch über gänzlich andere Vorschläge sehr dankbar:
Delphi-Quellcode:
begin
lcmbBoxString := cmbBoxFrom.Text;
lFirstString := lcmbBoxString[1];
lPointPos := Pos('.', lcmbBoxString);
lPointPos2 := PosEx('.', lcmbBoxString, lPointPos+1);
lSecondString := Copy(lcmbBoxString, lPointPos+1, lPointPos2 - lPointPos -2);
lThirdString := Copy(lcmbBoxString, lPointPos2-2, lPointPos2-1);
lFourthString := Copy(lcmbBoxString, lPointPos2+1, lPointPos2 - lPointPos -1);
FVerNrFrom := lFirstString;
FVerNrFrom2:= lSecondString;
FVerNrFrom3:= lThirdString;
FVerNrFrom4:= lFourthString;
end;