Не выводит 2 Shape на форму, ошибка в функции - " is not valid integer value

@QAQA · Регистрация: 15.03.2014

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

Есть функция:

C++
1
2
3
4
5
6
7
8
9
10
11
double readCoord(UnicodeString iskomoe, String coord)
{
        String whatFind = coord + "=";
        int startPos = PosEx(whatFind, iskomoe);
        int endPos = PosEx(";", iskomoe, startPos);
        String pos = iskomoe.SubString(startPos+2, endPos - startPos-2);
        double posConverted = StrToInt(pos);
        // ShowMessage(pos);       // LOG
        return posConverted;
 
}

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
void __fastcall TForm1::Start1Click(TObject *Sender)
{
 
    StatusBar1->Panels->Items[0]->Text = "Добро пожаловать";
    Memo1->Lines->LoadFromFile("1.txt");      // Вот так выгружаю файл   // Для лога
 
 
    int coutLines = Memo1->Lines->Count;
    Label9->Caption = coutLines;
 
    if (coutLines != 0)
    {       // if (coutLines <> 0)
 
 
        while (i < coutLines)
        {              // while (i < coutLines)
        UnicodeString XX = Label3->Caption;         // Вот так ПРИСВАИВАЮ данные в String
        Label3->Caption=Memo1->Lines->Strings[i];  // Вот так ВЫВОЖУ первую строку
 
        double posX = readCoord(XX, "x");
            Label4->Caption = posX;    // Для лога
        double posY = readCoord(XX, "y");
            Label5->Caption = posY;    // Для лога
        double posR = readCoord(XX, "R");
            Label6->Caption = posR;    // Для лога
 
        Shape[i] = new TShape(this);
        Shape[i]->Parent = this;
        Shape[i]->Visible = true;
        Shape[i]->Brush->Style=stCircle;
        Shape[i]->Brush->Color=clBlack;
 
        double cX = posX;
        double cY = posY;
        double cR = posR;
        Shape[i]->Top = cY;
        Shape[i]->Left = cX;
        Shape[i]->Height=cR;  // *2  NE ZABIT'
        Shape[i]->Width=cR;   // *2  NE ZABIT'
        Shape[i]->Shape = stCircle;
        Shape[i]->OnMouseEnter = MouseEnter;
        Shape[i]->OnMouseLeave = MouseLeave;
 
        Label2->Caption=i;   // Для лога
           StatusBar1->Panels->Items[0]->Text = posR;
             i++;
        }          // while (i < coutLines)
 
    }
else {
        ShowMessage("Файл пустой");
     }       // if (coutLines <> 0)
 
 
}

При первом нажатии на Start - выбивает окно с ошибкой " " is not valid integer value ". При повторном нажатии - всё работает, НО рисует только 7 из 9 кругов. Почему 7, а не 8 хотя бы - не пойму.
Вот так координаты заданы в 1.txt:
x=45; y=45; R=50;
x=0; y=0; R=50;
x=100; y=100; R=65;
x=450; y=450; R=50;
x=125; y=125; R=25;
x=10; y=10; R=50;
x=175; y=175; R=20;
x=150; y=150; R=15;
x=200; y=200; R=200;

Такая же история, даже если не использовать функцию readCoord, а пустить всё в void __fastcall TForm1::Start1Click(TObject *Sender).

@volvo · 14.04.2015, 23:33

Для начала: переменная i где инициализируется?

@QAQA · 14.04.2015, 23:35 **[ТС]**

В Unit.h:

C++
1
2
#endif
    int i = 0;

@volvo · 14.04.2015, 23:53

Прелестно. Значит, нажал я на кнопку, и у меня начиная с прошлого значения i будет заполняться еще coutLines элементов массива Shape? А их есть столько? Может, нужно при нажатии на кнопку обнулить i?

@QAQA · 15.04.2015, 02:21 **[ТС]**

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

Прелестно. Значит, нажал я на кнопку, и у меня начиная с прошлого значения i будет заполняться еще coutLines элементов массива Shape? А их есть столько? Может, нужно при нажатии на кнопку обнулить i?

Если честно, все равно не понял что от этого изменится, но всё же:

C++
1
2
3
4
5
6
7
8
9
void __fastcall TForm1::Start1Click(TObject *Sender)
{
    int i = 0;
    StatusBar1->Panels->Items[0]->Text = "Добро пожаловать";
    Memo1->Lines->LoadFromFile("1.txt");      // Вот так выгружаю файл   // Для лога
 
 
    int coutLines = Memo1->Lines->Count;
    Label9->Caption = coutLines;

и т.д.

Вот Unit.h:

C++
1
2
3
4
5
6
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
 
    TShape* Shape[50];

Всё так же - срабатывает при втором клике на Start.
Если что, в итого выводит:
Label9->Caption = coutLines; - 9 , как и должно
Label2->Caption=i; - 8.
Вот не доходит до меня...

Добавлено через 22 минуты
еще:

C++
1
 while (i < coutLines)

Надо изменить на:

C++
1
 while (i <= coutLines)

Добавлено через 1 час 25 минут
Ошибка где-то здесь...

C++
1
2
UnicodeString XX = Label3->Caption;         // Вот так ПРИСВАИВАЮ данные в String
        Label3->Caption=Memo1->Lines->Strings[i];  // Вот так ВЫВОЖУ первую строку

Добавлено через 24 минуты
Методом проб и ошибок получилось так:

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
double readCoord(UnicodeString iskomoe, String coord)
{
        String whatFind = coord + "=";
        int startPos = PosEx(whatFind, iskomoe);
        int endPos = PosEx(";", iskomoe, startPos);
        String pos = iskomoe.SubString(startPos+2, endPos - startPos-2);
        double posConverted = StrToInt(pos);
        // ShowMessage(pos);       // LOG
        return posConverted;
 
}
 
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Start1Click(TObject *Sender)
{
 
    int i = 0;
    StatusBar1->Panels->Items[0]->Text = "Добро пожаловать";
    TStringList *file= new TStringList;//массив элементов где каждый элемент - строка
    file->LoadFromFile("1.txt"); // Загружаем файл
    int coutLines = file->Count;
 
    Label9->Caption = coutLines;
 
    if (coutLines != 0)
    {       // if (coutLines <> 0)
 
 
        while (i < coutLines)
        {              // while (i < coutLines)
        UnicodeString XX = file->Strings[i];    // Вот так ПРИСВАИВАЮ данные в String
        double posX = readCoord(XX, "x");
            Label4->Caption = posX;    // Для лога
        double posY = readCoord(XX, "y");
            Label5->Caption = posY;    // Для лога
        double posR = readCoord(XX, "R");
            Label6->Caption = posR;    // Для лога
 
        Shape[i] = new TShape(this);
        Shape[i]->Parent = this;
        Shape[i]->Visible = true;
        Shape[i]->Brush->Style=stCircle;
        Shape[i]->Brush->Color=clBlack;
 
        double cX = posX;
        double cY = posY;
        double cR = posR;
        Shape[i]->Top = cY;
        Shape[i]->Left = cX;
        Shape[i]->Height=cR;  // *2  NE ZABIT'
        Shape[i]->Width=cR;   // *2  NE ZABIT'
        Shape[i]->Shape = stCircle;
        Shape[i]->OnMouseEnter = MouseEnter;
        Shape[i]->OnMouseLeave = MouseLeave;
 
        Label2->Caption=i;   // Для лога
           StatusBar1->Panels->Items[0]->Text = posR;
             i++;
        }          // while (i < coutLines)
 
    }
else {
        ShowMessage("Файл пуст.");
     }       // if (coutLines <> 0)
 
 
}

Из серии "если работает - не трогай". Без ошибок, рисует - правильно.

Новые блоги и статьи Все статьи Все блоги /
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .

@volvo Супер-модератор 33398 / 21508 / 8236 Регистрация: 22.10.2011 Сообщений: 36,906 Записей в блоге: 12
	14.04.2015, 23:33
	Для начала: переменная i где инициализируется? 0

@volvo Супер-модератор 33398 / 21508 / 8236 Регистрация: 22.10.2011 Сообщений: 36,906 Записей в блоге: 12
	14.04.2015, 23:53
	Прелестно. Значит, нажал я на кнопку, и у меня начиная с прошлого значения i будет заполняться еще coutLines элементов массива Shape? А их есть столько? Может, нужно при нажатии на кнопку обнулить i? 0