Wiedermal C -> Delphi

[inherited]

Zitat von Gehstock:

versuche folgenden Code zu übersetzen

Delphi-Quellcode:

var
  test_PATCH, Test74, Test9C, TestCC: String; // Ruhig string benutzen char Test_PATCH[17],Test74[17],Test9C[17];
  //char TestCC[33];
....
case whatever of 
 2: // {case 2:
 for i := 1 to 16 do // 1 to 16, in Delphi beginnen String-Indizes bei 1, in C bei 0 (normalerweise) for(i=0;i<16;i++)
 begin // {
 if (i mod 2 = 0) then // if(!(i%2)) //Prüfung auf Parität (is i/2 ???)
 begin // {
   Test74[i]=Test_PATCH[i+1];
 end // }
 else
 begin {
   Test74[i]=Test_PATCH[i-1];
 end;// }

Zitat:

und wie übersetze ich
int Test_code(char* Test, char *std) und
int main(int argc, char* argv[])

->

function Test_code(Test, std: String): Integer; das andere ist der Kopf der main-Methode, in Pascal also der Rumpf begin...end. in der main-Unit.

Zitat:

und ist diese zeile
TestCC[i*4]=(((Test74[(i*2)+1]&dest[(i*2)+1])|Test9C[(i*2)+1])&Test9C[(i*2)+1])%10; mit
TestCC[i*4]:=(((Test74[(i*2)+1] and dest[(i*2)+1]) or Test9C[(i*2)+1]) and Test9C[(i*2)+1])mod 10; richtig übersetzt?

TestCC[i*4+1] := (((Test74[(i*2)+2] and dest[(i*2)+2]) or Test9C[(i*2)+2]) and Test9C[(i*2)+2]) mod 10; Es ist allerdings schwer zu sagen ob das dem oberen entspricht weil ich den Zusammenhang bzw das Ziel des Codefragments nicht kenne.