[Aksanka2004]

Сообщение от timeless

Код:

...
  image1.Canvas.MoveTo(0,Image1.Height-round(strtofloat(edit1.Text)));
  for i:=0 to sl.Count-1 do begin
    image1.Canvas.LineTo(i*50, Image1.Height-round(strtofloat(sl[i])));
  end;
  sl.Free;
end;

Пасиб) Работает. Но при больших числах графика совсем не видно.Чтоб видно было, может не умножать на 50? Или это не так исправляется?