
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.