Delphi nach PHP

[DieDolly]

Ich übersetze in letzter Zeit einiges Delphi nach PHP was bis jetzt kein Problem war. War auch nur einfacher Krams.
Aber bei dieser Schleife weiß ich nicht weiter.

Dieses Resultat bekomme ich (x2 ist falsch, das was in der Klammer steht und das was in chr() steht).
ss wird korrekt gesetzt.
Es scheint also ein mathematisches Problem zu sein.
Code aus Sicherheitsgründen gelöscht.

[Delphi.Narium]

Die beiden Zeilen stimmen nicht überein, kann das die Ursache sein?

Code:

echo         'data: ' . $data[(($i * 2) + 1)] . ' - i: ' . $i .         '<br />' .     'x2: ' . $x2 .          ' (' . (($i * 2) + 1) . ')           || chr(' . $x . ')<hr />';
ShowMessage('data: ' + Data[   (i * 2) + 2 ] + ' - i: ' + i.ToString + sLineBreak + 'x2: ' + x2.ToString + ' (' + (( i * 2) + 2).ToString + ') || chr(' + x.ToString + ')');

[hanvas]

Deine Zählvariable geht im PHP Teil eines weiter als im Delphi Teil. Den Rest habe ich nicht geprüft.

Zitat:

Code:

for ($i = 0; $i < ((strlen($data) / 2) - 1 ); $i++)

Delphi-Quellcode:

 for i := 0 to Length(Data) div 2 - 1 do

Dein Schleifenkopf müsste (von Delphi nach PHP) lauten

Code:

for ($i = 0; $i <= ((strlen($data) / 2) - 1 ); $i++)

cu Ha-Joe

[DieDolly]

Das hilft leider beides nicht. Ich bekomme in PHP für die das chr immernoch 12 statt 6 und für x 196 statt 111.
Der x2 -Teil in der Klammer stimmt jetzt.

[jottkaerr]

Ist data ein String? Wenn ja, dann dürfte dieser in PHP null-basiert sein und dann greifst Du beim ersten Durchlauf der for-Schleife in Delphi auf das erste Zeichen, in PHP aber (ebenfalls mit Index 1) auf das zweite Zeichen zu. Wahrscheinlich hast Du also durchgängig einen Off-by-one-Fehler.

[DieDolly]

Lösung gefunden danke an alle.

[Luckie]

Und wie sieht die Lösung aus? :roll: