Datenbanksuche, Versionsnummer, Punkte

[Freyr77]

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;

[SProske]

Wieso nicht einfach Split verwenden?

[Lemmy]

hm..

Delphi-Quellcode:

  version: TStringList;
begin
  version := TStringList.Create;
  version.Delimeter := '.';
  version.DelimetedText := cmbBoxFrom.Text;

das sollte eigentlich zu deiner Zufriedenheit funktionieren...

Und wenn Du dann die einzelnen Teile auf x Stellen erweiterst (also Nullen voranstellst), sowie darauf achtest, immer das selbe Format (also 4 Versionsanteile) zu haben, dann kannst Du die Version auch in einem Feld ablegen und das vergleichen:

Zitat:

Zitat von Freyr77 (Beitrag 1348245)

z.B. die Suche von 4.12.13 zu 5.0.1 .

wäre dann von 004.012.013 zu 005.000.001

[Freyr77]

Zitat:

Zitat von Lemmy (Beitrag 1348248)

hm..

Delphi-Quellcode:

  version: TStringList;
begin
  version := TStringList.Create;
  version.Delimeter := '.';
  version.DelimetedText := cmbBoxFrom.Text;

das sollte eigentlich zu deiner Zufriedenheit funktionieren...

Und wenn Du dann die einzelnen Teile auf x Stellen erweiterst (also Nullen voranstellst), sowie darauf achtest, immer das selbe Format (also 4 Versionsanteile) zu haben, dann kannst Du die Version auch in einem Feld ablegen und das vergleichen:

Zitat:

Zitat von Freyr77 (Beitrag 1348245)

z.B. die Suche von 4.12.13 zu 5.0.1 .

wäre dann von 004.012.013 zu 005.000.001

Aus irgendwelchen Gründen ist "DelimitedText" auch mit den Punkten versehen. :?:

[Freyr77]

Zitat:

Zitat von SProske (Beitrag 1348246)

Wieso nicht einfach Split verwenden?

Habe ich mit Split nicht das Problem, dass ich wenn zwei Nummern zwischen den Punkten stehen die nicht einzeln holen kann?

[Aviator]

Split teilt den String an jeder Stelle, an der ein als Parameter der Funktion festgelegter Delimiter vorkommt. Wenn dein String also aus vier Teilen besteht (geteilt durch 3 Punkte) dann bekommst du ein Array mit 4 Elementen zurück. Siehe SplitString Funktion in der OH.

[Lemmy]

Zitat:

Zitat von Freyr77 (Beitrag 1348252)

Aus irgendwelchen Gründen ist "DelimitedText" auch mit den Punkten versehen. :?:

logisch oder? ist ja auch der "DelimitedText"....
Zugriff auf die einzelnen TEile dann per

Delphi-Quellcode:

  for idx := 0 to Version.Count - 1
    Version[idx]

[Freyr77]

Zitat:

Zitat von Lemmy (Beitrag 1348255)

Zitat:

Zitat von Freyr77 (Beitrag 1348252)

Aus irgendwelchen Gründen ist "DelimitedText" auch mit den Punkten versehen. :?:

logisch oder? ist ja auch der "DelimitedText"....
Zugriff auf die einzelnen TEile dann per

Delphi-Quellcode:

  for idx := 0 to Version.Count - 1
    Version[idx]

Klar. Sorry. :-D Danke dir.

[Freyr77]

Ich habe es jetzt so gelöst:

Delphi-Quellcode:

GetVerNrParts(ComboboxText: string; AArray: array of string);
  var
  version: TStringList;
  iCounter: integer;

begin
  version := TStringList.Create;
  version.Delimiter := '.';
  version.DelimitedText := ComboboxText;

  for iCounter := 0 to version.Count -1 do
    begin
       AArray[iCounter] := version[iCounter];
    end;
end;

Geht auch, die Nummern stehen ohne Punkt und aufgeteilt in meinen Arrays.

Nächstes Problem : wenn ich die Arrays abrufen will, sind sie auf einmal wieder leer. Wahrscheinlich auch wieder ein Flüchtigkeitsfehler.

Die Prozedur oben lasse ich mir nach einem Button-Click durchlaufen:

Delphi-Quellcode:

btnProduktAuswahlClick(Sender: TObject);
begin
  GetVerNrParts(cmbBoxFrom.Text, VersNumberFromArray);
  GetVerNrParts(cmbBoxTo.Text, VersNumberToArray);
  FillGrid;
  FromVersionToVersionCheck;
end;

Bei "FillGrid" wird die Funktion "GetTSQLData" aus einer anderen Unit aufgerufen, deren Parameter so aussehen (Produkt:TProdukt; FirstArray: array of string, SecondArray: array of string): TSQLTable;

Aus diesem Array heraus befülle ich mein SQL-Statement mit FirstArray[1] .... / SecondArray[1].... und vergleiche die Bestandteile. So weit komme ich aber nicht, weil mir "GetTSQLData" sagt, dass die Arrays leer sind. Wieso?

Übergeben werden die Parameter in der "Array" - Unit so:

SQLData := AndereUnit.GetSQLData(FSelectedProduct, VersNumberFromArray, VersNumberToArray);

Arrays sind als "private" Variable (wie "FSelectedProdukt" auch - das erkennt er komischerweise) deklariert:

Delphi-Quellcode:

private
    var
       FSelectedProduct: TProdukt;
       VersNumberFromArray : array[1..3] of string;
       VersNumberToArray : array[1..3] of string;

Wieso geht das nicht? :?::?:

[Jumpy]

Lass das Array doch weg und arbeite nur mit TStrings / TStringlist.

Ansonsten (falls du es wie bisher lassen willst) würde es Sinn machen das Array mit einem "var" davor zu übergeben, somit also per Referez. Zudem muss die Stringlist in GetVerNrParts am Ende auch wieder freigegeben werden.