|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#16
|
||||
|
||||
массив
Код:
mas_rol:array [1..5,1..n*4] of roliks; Код:
type roliks = record ob:Tshape; rol:string[10]; rol_p:string[10]; fsec:integer; unrs:byte; fnum:integer; fname:tlabel; line:byte; sec:tpanel; st:tlabel; num:tlabel; s_num:string[30]; vid:byte; end; |
#17
|
|||
|
|||
1. (Выслала мне код по исправленному адресу?)
2. Массив. а) Первый индекс влез в границы 1..5? б) Второй индекс влез в границы 1..104*4? 3. rol. Длина этой строки не превышает 10? (определение поля 'ROL_PASP_NUM' в БД) Ещё подозрение. К таблице bloc сразу два обращения. Сделай в две команды: Код:
var s:string[10]; ... s:= ...; mas[i, j].rol:= s; Последний раз редактировалось AlexSku, 18.06.2007 в 15:48. |
#18
|
||||
|
||||
Цитата:
|
#19
|
||||
|
||||
то что выделено жирным типа integer и
Код:
index:=strtoint((Sender as tlabel).Hint); |
#20
|
|||
|
|||
Цитата:
Код:
while <плохая ситуация> do Application.ProcessMessages; или repeat Application.ProcessMessages until <хорошая ситуация>; Код:
Timer1.Enabled:= true; ... procedure Form1.Timer1Timer(Sender: TObject); begin if <хорошая ситуация> then begin Timer1.Enabled:= false; form2.pasp_rol0.Refresh; end; end; Код:
var State1: TDataSetState; ... State1:= form2.pasp_rol0.State; try form2.pasp_rol0.Refresh; ShowMessage(Format('норма: %u',[Ord(State1)])); except ShowMessage(Format('ошибка: %u',[Ord(State1)])); end; Последний раз редактировалось AlexSku, 19.06.2007 в 10:48. |