تحويل كود من السي الى الدلفي

[phpbb3]

تحويل الكود كما هو والباقي عندك

كود :

var tog:Single; px:array[0..1]of Single; begin tog:=spp; data[0]:=0; data[1]:=data[0]; while tog>0 do begin if tog<1 then step:=tog else step:=1; Dec(tog,step); end; end;