AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Mehrdimensionales Array (Array of array) sortieren
Thema durchsuchen
Ansicht
Themen-Optionen

Mehrdimensionales Array (Array of array) sortieren

Ein Thema von Ykcim · begonnen am 7. Dez 2009 · letzter Beitrag vom 7. Dez 2009
 
Ykcim

Registriert seit: 29. Dez 2006
Ort: NRW
856 Beiträge
 
Delphi 12 Athens
 
#10

Re: Mherdimensionales Array (Array of array) sortieren

  Alt 7. Dez 2009, 11:03
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
Patrick
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:28 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz