[C++ -> Delphi]Der ">>" Operator

[sx2008]

Hier wäre die äquivalente Lösung in Delphi.
C/C++ kann hier zwei Vorteile ausspielen:
1.) seinen Increment/Decrement - Operator
man kann also schreiben a = *p++; wobei der Inhalt des Pointer p ausgelesen wird und anschliesend der Zeiger erhöht wird.
In Delphi braucht man dazu zwei Befehle.
2.) das Überladen von Operatoren
C++ hat viele Operatoren, die sich überladen lassen und wählt automatisch die passende Funktion.
Delphi fehlen die Operatoren ++,--, >>, << weshalb das Überladen der Operatoren deutlich weniger nützt.

Allerdings hat das Überladen von Operatoren auch den Nachteil, dass der Sourcecode für Aussenstehende schwerer zu verstehen ist.
Man kann mit diesem Feature auch viel Unheil anrichten.

Delphi-Quellcode:

function GetInt8(var x:Pointer):Byte;
begin
  Result := PByte(x);
  x := PByte(x) + 1;
end;
function GetInt(var x:Pointer):Integer;
begin
  Result := PInteger(x);
  x := PInteger(x) + 1;
end;
...
tmp1 := GetInt8(source);
tmp2 := GetInt(Source);