[The Shadow]

Помогите перевести код на ассемблер:

Код:

procedure Recursia(x,i:integer; var Res:TMass; str:string);
var
k:integer;
begin
str:=str+Tables[i].mass[x];
if i=High(Tables) then begin
 SetLength(Res,Length(Res)+1);
 Res[High(Res)]:=str;
 exit;
end;
 for k:=0 to High(Tables[i+1].Mass) do Recursia(k,i+1,Res,str);
end;

[Thrasher]

Нужно этот кусок кода для Delphi переделать или отдельно?

[The Shadow]

Нужно этот код из Delphi переписать на ассемблер

[Thrasher]

Необходимо описание типа Tables и Res. Иначе невозможно описать структуру.

[The Shadow]

ОК. Как узнаю, сразу напишу.

[ART]

TMass=array of string
TTables=record
Names: string
Index: integer
Mass: TMass
End;
TTables=array of TTable
Res: TMass
tables: TTables