Datenbanksuche, Versionsnummer, Punkte

[Freyr77]

Zitat von 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 von Freyr77:

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.

[Lemmy]

Zitat von Freyr77:

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 von Lemmy:

Zitat von Freyr77:

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. 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.

[Freyr77]

Zitat von 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.

Danke für den "Schubser". Bin da jetzt einfach nicht drauf gekommen..