Извлечение данных из TStringGrid

← →
Modest Mouse (2005-11-15 09:31) [0]

Всем привет. Пишу следующий код:
with Table do begin For j:= Row to RowCount - 2 do begin StartPtX := StrToInt(Cells[2, j]); StartPtY := StrToInt(Cells[3, j]); EndPtX := StrToInt(Cells[4, j]); EndPtY := StrToInt(Cells[5, j]); MoveTo(StartPtX, StartPtY); Pen.Color := clRed; LineTo(EndPtX, EndPtY); Brush.Color := clRed; Ellipse(EndPtX-3, EndPtY-3, EndPtX+3, EndPtY+3); Ellipse(StartPtX-3, StartPtY-3, StartPtX+3, StartPtY+3); Font.Color := clBlack; TextOut(StartPtX+5, StartPtY+5, "1"); TextOut(EndPtX+5, EndPtY+5, "2"); end;
Программа выдает ошибку конвертации в тип Integer. Если же вместо j использовать Row и убрать цикл, все нормально. В чем может быть ошибка? И как лучше последовательно извлечь данные из рядов таблицы при определенном наборе колонок (2, 3, 4, 5) и на их основе нарисовать отрезки?

← →
Ega23 © (2005-11-15 09:45) [1]

Ошибка в том, что в Cells[..., j] находится не Integer.

Извлечение данных из TStringGrid Найти похожие ветки