Ошибка в FindComponent

@lexasf · Регистрация: 30.09.2010

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

Привет. Сделал вроде как программу, все было хорошо. В коде ничего не менял, ехе тоже, но через пару дней (тобиш сегодня) включаю ее, а она тупо зависает.
Зависает почему-то на

Delphi
1
2
3
if (FindComponent('LocalGrid')=nil)or(FindComponent('sTime')=nil) Then
            Begin
            end;

Подскажите, в чем ошибка, ведь раньше все как ни странно работало нормально 0_о

@i8085 · 25.11.2012, 15:08

lexasf, раз знаете строку, то это в отладчике? При "зависании" пишется, что за ошибка. Почитайте.

@lexasf · 25.11.2012, 16:16 **[ТС]**

В отладчике ничего не пишется, программа зависат уже после компиляции (при поиске компонента)

@mss · 25.11.2012, 16:32

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

Зависает почему-то на

Врешь нагло.

@lexasf · 25.11.2012, 16:37 **[ТС]**

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

Врешь нагло.

Всмысле?

@mss · 25.11.2012, 17:18

В прямом.

@lexasf · 25.11.2012, 17:36 **[ТС]**

Вот код, где зависать начало

Delphi
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
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
procedure TForm3.sCombobox2Change(Sender: TObject);
var LastWeek,DateQ:String;
    data:TdateW;
    EnTime:TDateTime;
  i,f: Integer;
  LoadList,parsList:TStringList;
begin
   LoadList:=TStringList.Create;
   ParsList:=TStringList.Create;
   parsList.delimiter:='|';
   LoadList.Clear;
   parsList.Clear;
   LoadList.LoadFromFile('propusk.txt');
   if sCombobox2.Text='Пропуски' then
      begin
         listview1.Visible:=False;
         sEdit1.Visible:=False;
//         if (FindComponent('LocalGrid')=nil)or(FindComponent('sTime')=nil) Then
//            Begin
 
               DPicker:=TDateTimePicker.Create(Self);
               DPicker.Parent:=Pagecontrol1.Pages[0];
               DPicker.Visible:=False;
               DPicker.Name:='Picker';
 
               sTime:=TsDateEdit.Create(Self);
               sTime.Name:='sTime';
               sTime.Parent:=Pagecontrol1.Pages[0];
               sTime.Left:=listview1.Left+400-100;
               sTime.Width:=100;
               sTime.Height:=20;
               sTime.OnChange:=sTimeChange;
 
               SDTime:=TsDateEdit.Create(self);
               sDTime.Name:='sDTime';
               sDTime.Parent:=Pagecontrol1.Pages[0];
               sDTime.Left:=listview1.Left+600-100;
               sDTime.Width:=100;
               sDTime.Height:=20;
               sDTime.Date:=DPicker.Date;
 
               sLocalGrid:=TstringGrid.Create(Self);
               sLocalGrid.Name:='LocalGrid';
               sLocalGrid.Parent:=Pagecontrol1.Pages[0];
               sLocalGrid.Left:=listview1.Left;
               sLocalGrid.Top:=Listview1.Top+30;
               sLocalGrid.Width:=600;
               sLocalGrid.Height:=192;
               sLocalGrid.Options:=[GoEditing,goVertLine,goHorzLine,goFixedVertLine,goFixedHorzLine];
               sLocalGrid.GridLineWidth:=2;
               sLocalGrid.OnSetEditText:=slocalgridSetEditText;
 
               DateTimeToString(Data.Moth,'mm',DPicker.Date);
               DateTimeToString(Data.Day,'dd',DPicker.Date);
 
                 if (DayOfWeek(DPicker.Date)>=2) then
                  Begin
                     EnTime:=EncodeDate(2012,StrToInt(Data.Moth),(StrToInt(Data.Day)-DayOfWeek(DPicker.Date)+2));
                     sTime.Date:=EnTime;
                     DPicker.Date:=STime.Date;
                  End
               Else
                  begin
                     sTime.Date:=sTime.Date-6;
                  end;
              DataLen:=DaysBetween(sTime.Date, sDTime.Date);
              sLocalGrid.ColCount:=datalen+2;
              sLocalGrid.rowCount:=6;
              sLocalGrid.Rows[1].Text:='Отстутствующие';
              sLocalGrid.Rows[2].Text:='По болезни';
              sLocalGrid.Rows[3].Text:='По семейным обстоятельствам';
              sLocalGrid.Rows[4].Text:='Участие в конкурсах и т.п.';
              sLocalGrid.Rows[5].Text:='Без уважительной причины';
              sLocalGrid.RowHeights[1]:=30;
              sLocalGrid.RowHeights[2]:=30;
              sLocalGrid.RowHeights[3]:=30;
              sLocalGrid.RowHeights[4]:=30;
              sLocalGrid.RowHeights[5]:=30;
              sLocalGrid.Cols[datalen+1].Text:='Всего';
              sLocalGrid.ColWidths[0]:=160;
 
              {****Заполение Grid-a****}
 
              for I := 1 to datalen do
                 begin
                    sLocalGrid.Cols[i].Text:=DateToStr(DPicker.Date);
                    Indx:=LoadList.IndexOfName(DateToStr(DPicker.Date));
                    if indx=-1 then
                       Begin
                          for f := 1 to sLocalGrid.RowCount-1 do
                             begin
                                  sLocalGrid.Cells[i,f]:='Err';
                             end;
                             DPicker.Date:=DPicker.Date+1;
                          Continue;
                       End;
                    parsList.DelimitedText:=LoadList.ValueFromIndex[Indx];
                    for f := 1 to sLocalGrid.RowCount-1 do
                       begin
                          sLocalGrid.Cells[i,f]:=parsList[f-1];
                       end;
                    DPicker.Date:=DPicker.Date+1;
                 end;
 
            {****Сумма ячеек****}
 
              for i := 1 to sLocalGrid.RowCount-1 do
                   Begin
                      for f := 1 to sLocalGrid.ColCount-2 do
                         with sLocalGrid do
                            Begin
                                if f>1 then
                                   begin
                                      if (Cells[f,i]<>'')and(Cells[f,i]<>'Err') then
                                         begin
                                            Cells[ColCount-1,i]:=IntToStr(StrToInt(Cells[ColCount-1,i])+StrToInt(Cells[f,i]))
                                         end;
                                   end
                                else Cells[ColCount-1,i]:=Cells[f,i];
                            End;
 
                   end;
 
 
 
 
               ToDay:=TLabel.Create(Self);
               ToDay.Parent:=Pagecontrol1.Pages[0];
               ToDay.Name:='ToDay';
               ToDay.Font.Size:=14;
               ToDay.Top:=sTime.Top;
               ToDay.Left:=listview1.Left+350-100 ;
               ToDay.Caption:='С';
                Today.Height:=sTime.Height;
 
               ToDay2:=TLabel.Create(Self);
               ToDay2.Parent:=Pagecontrol1.Pages[0];
               ToDay2.Name:='ToDay2';
               ToDay2.Font.Size:=14;
               ToDay2.Top:=sTime.Top;
               Today2.Height:=sTime.Height;
               ToDay2.Left:=sDTime.Left-65 ;
               ToDay2.Caption:='По';
//            End
//         Else
//           Begin
//              sLocalGrid.Visible:=True;
//              sTime.Visible:=True;
//              sDTime.Visible:=True;
//              ToDay.Visible:=True;
//           End;
      end
   else
      begin
        if FindComponent('ToDay')<>nil then
           begin
                      sLocalGrid.Visible:=False;
        sTime.Visible:=False;
        sDTime.Visible:=False;
        ToDay.Visible:=False;
        Today2.Visible:=False;
           end;
 
        listview1.Visible:=True;
        sEdit1.Visible:=True;
      end;
      LoadList.Free;
      parsList.Free;
end;

Надеюсь на помощь

@mss · 25.11.2012, 17:47

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

Вот код, где зависать начало

Сначала он утверждает что "зависание" происходит именно в FindComponent.
Теперь он, видите ли, сам не знает что и где у него "висит" и вываливает сюда кучу говнокода - нате вам, мол, разбирайтесь сами ..
Не стыдно ?

@lexasf · 25.11.2012, 21:36 **[ТС]**

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

Сначала он утверждает что "зависание" происходит именно в FindComponent.
Теперь он, видите ли, сам не знает что и где у него "висит" и вываливает сюда кучу говнокода - нате вам, мол, разбирайтесь сами ..
Не стыдно ?

Нет. Не можешь помочь - не флуди.
Проверял через debug.Зависало на FindComponent. Доп код скинул для того, чтобы понятнее было.

Добавлено через 3 часа 9 минут
Я вообще ничего не понимаю...Создал новый проект, скопировал код со старого, итог - в новом все работает,а в старом нет, с одинаковым кодом

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 11.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 10.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@i8085 4053 / 2664 / 583 Регистрация: 11.09.2009 Сообщений: 9,512
	25.11.2012, 15:08
	lexasf, раз знаете строку, то это в отладчике? При "зависании" пишется, что за ошибка. Почитайте. 1

@lexasf -26 / 1 / 2 Регистрация: 30.09.2010 Сообщений: 39
	25.11.2012, 16:16 [ТС]
	В отладчике ничего не пишется, программа зависат уже после компиляции (при поиске компонента) 0

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	25.11.2012, 17:18
	В прямом. 1