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