Hallo zusammen
Ich habe hier eine Programmvorlage in CPP.
Bei einem Codeteil will mir die Übersetzung nach Delphi nicht so recht gelingen.
Irgendwie verstehe ich wohl die CPP Schleifenkonstrukte nicht so recht.
Kann mir bitte jemand helfen dies nach Delphi zu übersetzen.
In den folgenden Kommentarzeilen ist der CPP-Source.
Dann mein Stand der Dinge:
Besten Dank für Eure Hilfe
Delphi-Quellcode:
// CPP Code
// for (int i = 0, j = 1; j < n - 1; j++) {
// for (int k = n >> 1; k > (i ^= k); k >>= 1);
// if (j < i) {
// const int32_t x0r = ar[j];
// const int32_t x0i = ai[j];
// ar[j] = ar[i];
// ai[j] = ai[i];
// ar[i] = x0r;
// ai[i] = x0i;
// }
// }
// Delphi Code
j := 1;
while j < (n - 1) do
begin
i := 0;
k := n shr 1;
while k > (i xor k) do
begin
i := i xor k;
DebugPrint(IntToStr(i));
if j < i then
begin
x0r := OutR[j];
x0i := OutI[j];
OutR[j] := OutR[i];
OutI[j] := OutI[i];
OutR[i] := x0r;
OutI[i] := x0i;
end;
k := k shr 1;
end;
inc(j);
end;