Thema: Delphi Wiedermal C -> Delphi

Einzelnen Beitrag anzeigen

Gehstock

Registriert seit: 28. Jan 2006
Ort: Görlitz / Sachsen
489 Beiträge
 
Delphi 2007 Professional
 
#1

Wiedermal C -> Delphi

  Alt 7. Mai 2008, 10:41
versuche folgenden Code zu übersetzen

Delphi-Quellcode:
var
char Test_PATCH[17],Test74[17],Test9C[17];
 char TestCC[33];
....
 {case 2:
for(i=0;i<16;i++)
{
  if(!(i%2)) //Prüfung auf Parität (is i/2 ???)
  {
    Test74[i]=Test_PATCH[i+1];
  }

  else
  {
  Test74[i]=Test_PATCH[i-1];
  }

hab ich nach


Delphi-Quellcode:
var
Test_PATCH : Array [1..17] of {Char}Word;//[b]hier überlege ich auch noch[/b]
Test74 : Array [1..17] of {Char}Word;
Test9C : Array [1..17] of {Char}Word;
TestCC : Array [1..33] of {Char}Word;
...
 2 : for i:=0 to 16 do
  begin
   if(not (i mod 2)) then //Prüfung auf Parität (is i/2 ???) [b]Hier hapert es Was soll "i mod 2"nicht sein[/b]
    Test74[i]:=Test_PATCH[i+1]
  else
  Test74[i]:=Test_PATCH[i-1];
 end;
Übersetzt


und wie übersetze ich
int Test_code(char* Test, char *std) und
int main(int argc, char* argv[])
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?
Marcel
  Mit Zitat antworten Zitat