Текущий архив: 2005.12.04;
Скачать: CL | DM;

Вниз

Извлечение данных из 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.

---

Страницы: 1 вся ветка

Текущий архив: 2005.12.04;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.046 c