Thema: Delphi Wiedermal C -> Delphi

Einzelnen Beitrag anzeigen

Benutzerbild von inherited
inherited

Registriert seit: 19. Dez 2005
Ort: Rosdorf
2.022 Beiträge
 
Turbo Delphi für Win32
 
#6

Re: Wiedermal C -> Delphi

  Alt 7. Mai 2008, 23:33
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.
Nikolai Wyderka

SWIM SWIM HUNGRY!
Neuer Blog: hier!
  Mit Zitat antworten Zitat