Thema: Tagarray

Einzelnen Beitrag anzeigen

Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#10

AW: Tagarray

  Alt 24. Dez 2017, 16:26
Ich würde statt eines Arrays die gute alte doppel verpointerte Liste nehmen.
z.B.
Delphi-Quellcode:
type
  pMyrecord=^tMyrecord;
  tMyrecord : record
                next,last : pMyrecord;
                Name : string;
                Wert : integer;
              end;

var
  firstrec,
  lastrec,
  actrec : pMyrecord;

...
  if actrecord^.Name>actrecord^.nextrecord^.Name then Tausche(actrecord);
Ist nur ein grobes Beispiel, da fehlt z.B. die Prüfung auf NIL.

Oder gleich eine (Object)Liste, die bekommt eine Sortierfunktion oder 2 oder 3... und fertig ist die Laube.

Gruß
K-H

Bitte nicht schlagen, ich bin extrem konservativ.
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector

Geändert von p80286 (24. Dez 2017 um 16:36 Uhr) Grund: falsche Syntax
  Mit Zitat antworten Zitat