Код: Выделить всё
type
TOrderRec = record
handle: integer;
price: double;
sl: double;
tp: double;
end;
var
order: array[0..10] of TOrderRec;
InitStrategy;
//Обнуление записей
for i:=0 to 10 do
begin
order[i].handle := 0;
order[i].price := 0;
order[i].sl := 0;
order[i].tp := 0;
end;