Считывание координат из StringGrid

@MaNext · Регистрация: 26.09.2012

Студворк — интернет-сервис помощи студентам

Доброго времени суток.
Задача: считать данные из стрингрида и перевести их в координаты точек. Ну и соответственно отметить на имэйдж.
Вроде сделал все как надо, но при выводе начинает ругаться на переменные (наверно). Ошибка is not a valid integer value. Помогите разобраться.
Вот код

C++
1
2
3
4
5
6
7
8
9
10
11
for(i=1; i < StringGrid1->RowCount; i++)
{
X=StrToInt(StringGrid1->Cells[0][i]);
Y=StrToInt(StringGrid1->Cells[1][i]);
 if(StringGrid1->Cells[0][i]>0){ Xo=X;}
 else {Xo=0;}
 
    if(StringGrid1->Cells[1][i]>0){Yo=Y;}
        else   { Yo=0;}
    Image1->Canvas->Ellipse(Xo,Yo,Xo+1,Yo+1);
  }

P.S. Был бы признателен за подсказку - как реализовать рисование точек сразу автоматически, т.е. при вводе в стргрид сразу отрисовывается в имэйдж. Спасибо.

@SatanaXIII · 26.09.2012, 16:57

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

P.S. Был бы признателен за подсказку - как реализовать рисование точек сразу автоматически, т.е. при вводе в стргрид сразу отрисовывается в имэйдж. Спасибо.

В инспекторе объектов, в events-ах на событии OnEnter или OnKeyDown щелкни два раза и там уже прописывай свой код.

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

is not a valid integer value

Это он тебе намекает, что ты где-то ему подсовываешь заместо циферки что-то другое. Пошагово попробуй отладить. И скажи на какой строке вылетает ошибка.

@MaNext · 26.09.2012, 17:52 **[ТС]**

SatanaXIII, Переписал код в СтрингГридКейДаун и поставил шаг на строке
X=StrToInt(StringGrid1->Cells[0][i]);
Появилась форма -> ввел цифру в 1 столбец-> вышел в код-> далее вылет из программы.
До этого в батоне вылетал на последней строке. По ходу он ругается на перевод значений ячеек в инт???

@nick42 · 26.09.2012, 18:04

MaNext, ячейка StringGrid по смыслу - строка; сравнивать строку с цифрой или числом, что Вы и делаете, не вполне "comme il faut". Лучше явно:

C++
1
 if (StrToInt(StringGrid1->Cells[i][j]) > 0)

... или

C++
1
if (StringGrid1->Cells[i][j].ToIntDef(0) > 0)

... .

@MaNext · 26.09.2012, 18:12 **[ТС]**

nick42, как я понял мне надо заменить
X=StrToInt(StringGrid1->Cells[0][i]);
Y=StrToInt(StringGrid1->Cells[1][i]);
на
if (StringGrid1->Cells[i][j].ToIntDef(0) > 0)
???
я извиняюсь за тормознутость, но если честно то ниче не понял ((

Добавлено через 1 минуту
Я понимаю что стринггрид выдает данные в АнсиСтринг.. но как перевести это в инт не понимаю(

@SatanaXIII · 26.09.2012, 18:18

MaNext, а на

C++
1
if (StrToInt(StringGrid1->Cells[i][j]) > 0)

тоже ругается? И что говорит?

@nick42 · 26.09.2012, 18:22

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

как перевести это в инт не понимаю(

Я применяю String.ToIntDef(число) особенно для ячеек StringGrid, в которых может вообще ничего не быть, по причине удобства: запись (AnsiString строка).ToIntDef(число) обозначает действие по преобразованию "строки" в "целое", но в случае неудачи функция вернет значение (число по умолчанию - def) в скобках, а не будет кричать об ошибке.

@MaNext · 26.09.2012, 18:30 **[ТС]**

nick42,
Прописал так. Ошибка пропала, но точки нет. Why?

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 for(i=1; i < StringGrid1->RowCount; i++)
{
Image1->Canvas->Pen->Color=clBlack;
X=StringGrid1->Cells[0][i].ToIntDef(0) > 0;
Y=StringGrid1->Cells[1][i].ToIntDef(0) > 0;
 
 
 
 if(StringGrid1->Cells[0][i]>0){ Xo=X;}
 else {Xo=0;}
 
    if(StringGrid1->Cells[1][i]>0){Yo=Y;}
        else   { Yo=0;}
    Image1->Canvas->Ellipse(Xo,Yo,Xo+1,Yo+1);
  }

Добавлено через 54 секунды
SatanaXIII, я не попробовал

@SatanaXIII · 27.09.2012, 08:54

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

но в случае неудачи функция вернет значение (число по умолчанию - def) в скобках, а не будет кричать об ошибке.

Так это ж хренова. Программа это место проскочит, а результат будет неверным/непонятным. Хренова всмысле в данном случае.

MaNext, а как на счет

C++
1
2
3
4
5
6
7
 if(StringGrid1->Cells[0][i].ToIntDef(0)>0){ Xo=X;}
 else {Xo=0;}
 
    if(StringGrid1->Cells[1][i].ToIntDef(0)>0){Yo=Y;}
        else   { Yo=0;}
    Image1->Canvas->Ellipse(Xo,Yo,Xo+1,Yo+1);
  }

То есть может в ифах косяк?

@MaNext · 08.12.2012, 03:43 **[ТС]**

Выкладываю, мало ли кому потребуется.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int i,j;
int X,Y,Xo=0,Yo=0,Xd1,Yd1,Xd2,Yd2;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
StringGrid1->Cells[0][0]="X";
StringGrid1->Cells[1][0]="Y";
i=1;j=1;
Image1->Canvas->Brush->Color=clWhite;
Image1->Canvas->Rectangle(0,0,Image1->Width, Image1->Height) ;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::StringGrid1KeyPress(TObject *Sender, char &Key)
{
   if(Key==13){
        Image1->Canvas->Rectangle(0,0,Image1->Width, Image1->Height) ;
//-------                                // проверяем 2 пустые ячейки
      for(i=1;i<StringGrid1->RowCount;i++){
if ((StringGrid1->Cells[0][i].IsEmpty()==true ) && (StringGrid1->Cells[1][i].IsEmpty()==true )){
   int i2=i;
   for(i2;i2<StringGrid1->RowCount;i2++){
     StringGrid1->Cells[0][i2]=StringGrid1->Cells[0][i2+1] ;
     StringGrid1->Cells[1][i2]=StringGrid1->Cells[1][i2+1] ;}
   break;}
        }
//-----                                  // проверяем Х на пустоту
   for(i=1;i<StringGrid1->RowCount;i++){
if (StringGrid1->Cells[0][i].IsEmpty()==true && (StringGrid1->Cells[1][i].IsEmpty()!=true )){
     StringGrid1->Cells[0][i]='0' ;
   break;}
        }
//-------                                 //проеряем Y на пустоту
   for(i=1;i<StringGrid1->RowCount;i++){
if ((StringGrid1->Cells[0][i].IsEmpty()!=true ) && (StringGrid1->Cells[1][i].IsEmpty()==true )){
     StringGrid1->Cells[1][i]='0' ;
   break;}
        }
//-------------                           //Рисуем
 
 for(i=1;i<StringGrid1->RowCount;i++){
if ((StringGrid1->Cells[0][i].IsEmpty()!=true )&& (StringGrid1->Cells[1][i].IsEmpty()!=true )){
X= StrToInt(StringGrid1->Cells[0][i]);                  // это Y
Y= Image1->Height - StrToInt(StringGrid1->Cells[1][i]); //это Х
if (i==1){
        Xo=X; Yo=Y;
         Image1->Canvas->MoveTo(Xo,Yo);}
 
 Image1->Canvas->Brush->Color= clRed;
 Image1->Canvas->Ellipse(X+3,Y+3,X-3,Y-3);
 Image1->Canvas->Brush->Color=clWhite;
 
        Image1->Canvas->LineTo(X,Y);
        }
 
        }
     }
 }
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Form1->Close();
}
//---------------------------------------------------------------------------

Новые блоги и статьи Все статьи Все блоги /
Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	Программный отбор значений справочника Maks 21.03.2026 Установка программного отбора значений справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .

@MaNext 4 / 4 / 0 Регистрация: 26.09.2012 Сообщений: 39
	26.09.2012, 17:52 [ТС]
	SatanaXIII, Переписал код в СтрингГридКейДаун и поставил шаг на строке X=StrToInt(StringGrid1->Cells[0][i]); Появилась форма -> ввел цифру в 1 столбец-> вышел в код-> далее вылет из программы. До этого в батоне вылетал на последней строке. По ходу он ругается на перевод значений ячеек в инт??? 0

@MaNext 4 / 4 / 0 Регистрация: 26.09.2012 Сообщений: 39
	26.09.2012, 18:12 [ТС]
	nick42, как я понял мне надо заменить X=StrToInt(StringGrid1->Cells[0][i]); Y=StrToInt(StringGrid1->Cells[1][i]); на if (StringGrid1->Cells[i][j].ToIntDef(0) > 0) ??? я извиняюсь за тормознутость, но если честно то ниче не понял (( Добавлено через 1 минуту Я понимаю что стринггрид выдает данные в АнсиСтринг.. но как перевести это в инт не понимаю( 0