| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Ошибка? [D6, Win2k]

Sergey V. Shadrin ©   (2002-08-21 15:22:00) 

type
desc=record
id_job:string;
qu_step:string;
nu_step:string;
id_prog:string;
id_scre:string;
u_name:string;
id_ca:string;
name_p:string;
name_f:string;
path_w:string;
data_wb:string;
time_wb:string;
data_we:string;
time_we:string;
reg_we:string;
num_fr:string;
data_b:string;
data_e:string;
rec_cn:string;
k_sum:string;
err_cn:string;
ret_cp:string;
end;

var

path_m,path_k,path_a,path_s,path_l,s1:string;
descriptors:array of desc;

[skip]
setlength(descriptors,j);
with descriptors[j-1] do
begin
id_job:=copy(s1,1,32);
qu_step:=copy(s1,33,2);
nu_step:=copy(s1,35,2);
id_prog:=copy(s1,37,128);
id_scre:=copy(s1,165,14);
u_name:=copy(s1,179,12);
id_ca:=copy(s1,191,2);
name_p:=copy(s1,193,20);
name_f:=copy(s1,213,12);
>>>path_m:=copy(s1,225,100);
data_wb:=copy(s1,325,8);
time_wb:=copy(s1,333,10);
data_we:=copy(s1,343,8);
time_we:=copy(s1,351,10);
reg_we:=copy(s1,361,5);
num_fr:=copy(s1,366,150);
data_b:=copy(s1,516,8);
data_e:=copy(s1,524,8);
rec_cn:=copy(s1,532,7);
k_sum:=copy(s1,539,15);
err_cn:=copy(s1,554,7);
ret_cp:=copy(s1,561,1);
end;
в ">>>" присваивается на descriptors[j-1].path_m, а значение path_m которая никакого отношения к descriptors не имеет.
в чем причина?

---

MBo   (2002-08-21 16:44:00) [1]

>Johnmen
а ты дотошный ;))

---

Johnmen   (2002-08-21 16:27:00) [2]

Причина в отсутствии descriptors.path_m

---

Наверх