ActionScript=>Delphi

[implementation]

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