Was du nicht genau übertragen kannst, sind die push-Aufrufe.
In Delphi musst du für das Array selbst die Größe festlegen und in das jeweilige Element schreiben.
Ein Push ließe sich damit übersetzen: (meinetwegen auch in eine Unterprozedur)
Delphi-Quellcode:
SetLength(array, length(array)+1);
array[length(array)-1] := element;
Das wäre allerdings sehr unperformant. Soweit du die Größe im Voraus kennst, solltest du sie auch schon vorher festlegen.
Code:
while (_loc_5 < param1.length)
{
switch(param1.charAt(_loc_5))
{
Würde ich so übersetzen:
Delphi-Quellcode:
for _loc_5 := 1 to length(Param1) do
case param1[_loc_5] of
...
end;
Da ja in jedem Schleifendurchgang ein Push vorzukommen scheint, könntest du eigentlich im Voraus schon folgendes machen:
Delphi-Quellcode:
SetLength(_loc_4,length(param1));
// und dann in der Schleife;
_loc_4[_loc_5] := '0100';
Auffällig ist allerdings, dass der Schreiber des Codes wenig von Variablenbenennung hält
