PHP nach Delphi (Syntaxfrage)

[DeddyH]

Ein Versuch:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
  s = '12345678901234567';
var
  ID: int64;
  i: integer;
  temp: string;
begin
  ID := StrToInt64(s);
  temp := '';
  for i := 0 to 7 do
    begin
      temp := temp + Chr(ID and $FF);
      ID := ID shr 8;
    end;
  ShowMessage(temp);
end;

Ergebnis (Delphi 7, hatte ich gerade parat):

Zitat:

‡Kk]TÜ+