[Aksanka2004]

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

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  sl: tstringlist;
begin
  sl:=tstringlist.Create;
  sl.Add(edit1.Text);
  sl.Add(edit2.Text);
  sl.Add(edit3.Text);
  sl.Add(edit4.Text);
  sl.Add(edit5.Text);
  sl.Add(edit6.Text);
  image1.Canvas.MoveTo(0,Image1.Height-strtoint(edit1.Text));
  for i:=0 to sl.Count-1 do begin
    image1.Canvas.LineTo(i*50, Image1.Height-strtoint(sl[i]))
  end;
  sl.Free;
end;

У меня ошибочка) В эдитах значение дробное, поэтому сразу пишет EConvertError и 'value is not integer'=(
Меняю i на real и strtoint на strtofloat и ничего( сразу пишет ошибку в строке

Код:

image1.Canvas.MoveTo(0,Image1.Height-strtoint(edit1.Text));

Ошибка:
[Error] Unit9.pas(253): Incompatible types: 'Integer' and 'Extended'

Как решить?