2 Arrays vergleichen\sortieren

[EWeiss]

Ich möchte dies beiden werte vergleichen.

Delphi-Quellcode:

while (A1[nB] < A1[nPiv]) do
  inc(nB);

Delphi-Quellcode:

while (A1[nE] > A1[nPiv]) do
  dec(nE);

A1 ist ein Array of TArray<MyRecord>

procedure TSkinSpriteContainer.SortShortTagArray(var A1, A2: TArray<TgObj>; Count: Integer);

Fehler..

Zitat:

[DCC Fehler] E2015 Operator ist auf diesen Operandentyp nicht anwendbar

sorry habe mit dem Array Type TArray noch keine Erfahrung.

Unter C++ mit

Code:

vector<short> &A1, vector<short> &A2

funktioniert das.

Das vertauschen beider Arrays will auch nicht so recht.

Delphi-Quellcode:

if (nB < nE) then
begin
  swap(A1[nB], A1[nE]);
  swap(A2[nB], A2[nE]);
end;

Delphi-Quellcode:

procedure SWAP(var Value1, Value2: TArray<TgObj>);
var
  lTemp: TArray<TgObj>;

begin
  lTemp := Value1;
  Value1 := Value2;
  Value2 := lTemp;
end;

irgenwo hängt es immer. LOL

gruss