Извлечение данных из TStringGrid [D6]
Modest Mouse © (2005-11-15 09:31:00)
Всем привет. Пишу следующий код:
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:00) [1]
Ошибка в том, что в Cells[..., j] находится не Integer.
Наверх 
ЧАТ |
Орешник |
|
