sla8a,ты что копировал не в русской раскладке?
for i := 0 to FList.Count-1 do
begin
Items[i] := ToReal(mt);
if Items[i] < 0 then
Items[i] := 0;//íèêàêèõ îòðèöàòåëüíûõ ÷èñåë
if mt.ldata <> nil then
mt := mt.ldata^;
sum := sum + items[i];
Будь другом, перезалей.
Пустышка смотрится нормально...
Даже красиво.
Редактировалось 2 раз(а), последний 2017-05-06 15:36:05