Hallo,
was heißt eigentlich das
Delphi-Quellcode:
If (Arr[i].ArtikelNr > Arr[k].ArtikelNr) or ((Arr[i].ArtikelNr = Arr[k].ArtikelNr)
and (Arr[i].Lieferdatum > Arr[k].Lieferdatum)) Then Begin
Genaugenommen das
Arr[i].ArtikelNr
? Ich habe es umgeschrieben in
Delphi-Quellcode:
If (Rows7[0,i] > Rows7[0,k]) or ((Rows7[0,i] = Rows7[0,k])
and (Rows7[1,i] > Rows7[1,k])) Then Begin
weil ich darüber die Splaten ansteuer.
Rows7 ist ein
Delphi-Quellcode:
TCols = array of string;
TRows = array of TCols;
.
Nur dummerweise passiert nichts, wenn ich die Procedure durchführe... der Bereich und die IF-Schleife werden zwar durchlaufen, aber am Ergebnis sehe ich keine Veränderung...
So sieht mein Code aus:
Delphi-Quellcode:
Cols7:=Cols2;
Rows7:=Rows2;
For i := 0 to High(Rows7) - 1 do
For k := i + 1 to High(Rows7) do
If (Rows7[0,i] > Rows7[0,k]) or ((Rows7[0,i] = Rows7[0,k])
and (Rows7[1,i] > Rows7[1,k])) Then Begin
Cols6 := Rows7[i];
Rows7[i] := Rows7[k];
Rows7[k] := Cols6;
End;
Cols2:=Cols7;
Rows2:=Rows7;
FillGrid(SG2, Cols7, Rows7);
Habe ich da einen Denkfehler?
Danke
Ykcim