Tagarray

[EWeiss]

Kennt sich vielleicht jemand mit PowerBasic aus?

Ich weis leider nicht wie ich das interpretieren soll bzw. nach welchen Kriterien hier sortiert wird.
Die Hilfe zu Powerbasic ist leider nicht Informativ genug.

Code:

%MAX_SORT         = 5
'-------
DIM x(1 TO %MAX_SORT ) AS LONG
DIM xx(1 TO %MAX_SORT ) AS LONG 
ARRAY SORT x(),  TAGARRAY xx()

gruss

[Amateurprofi]

Ich kenne mich mit PowerBasic auch nicht aus, aber weil jetzt Weihnachtszeit ist, hab ich mal gegoogelt nach powerbasic sort array

Vielleicht hilft das weiter.
https://forum.powerbasic.com/forum/a...sort-statement

[EWeiss]

Zitat von Amateurprofi:

Ich kenne mich mit PowerBasic auch nicht aus, aber weil jetzt Weihnachtszeit ist, hab ich mal gegoogelt nach powerbasic sort array

Vielleicht hilft das weiter.
https://forum.powerbasic.com/forum/a...sort-statement

Jo Danke..
Das wäre ja meine frage.

Code:

DIM Users$(100 TO 500), AcctNum&(100 TO 500)
ARRAY SORT Users$(), TAGARRAY AcctNum&()

Aber verstehe immer noch nicht nach welchen Kriterien sortiert wird.

A1 = 1,2,3,4,5
A2 = 1,2,3,4,5

Was und wie wird sortiert ?
Der Inhalt von A1 nach A2 oder A2 nach A1

Wenn A2 der Inhalt von Hinten nach vorn?
A2 nach A1 = 5,4,3,2,1

Hmmm...

gruss

[p80286]

Vorausgesetzt ich hab es richtig verstanden:

User$
1 Ben
2 willi
3 Monika
4 Zebulon
actnum
1 200
2 2
3 105
4 22

und nach dem sort:

1 Ben
2 Monika
3 Willi
4 Zebulon

1 200
2 105
3 2
4 22

Wenn Du so willst, wird User$ sortiert und Actnum wird entsprechend umsortiert.

Gruß
K-H

[EWeiss]

Danke dir..

Wenn deine Annahme nun richtig ist welche alternative könnte ich dann in Delphi
für diese Sortiermethode verwenden?

Vielleicht gibt es da ja was zu Weihnachten.

gruss

[Delphi.Narium]

Meine Idee wäre da ein Array of Record.

Delphi-Quellcode:

type
  tTagRecord = record
    Name : String;
    Wert : Integer;
  end;
  
  tTagArray = Array[0..n] of tTagRecord;

Wenn man nun nach Name sortiert, hat man den zweiten Wert an der gleichen Position.

Alternative:
TStringList:function AddObject(const S: string; AObject: TObject: Integer;
Dann kann man die mit Sort nach den Strings sortieren und die Objekte werden dann entsprechendf mitsortiert.

Eventuell mal hier schauen:

https://stackoverflow.com/questions/...sort-an-array#
https://www.entwickler-ecke.de/topic...n_21775,0.html

Könnten die als Ideenlieferanten dienen?

array of record sort delphi source