Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Access voltation [D7, WinXP]

Страницы: < 1 2 3 >
F@T@L_Err0r © (2007-09-21 16:05:00)
Здрасте всем.Кто нить подскажите плиз ответ на такой вопрос:я создал record сохранил в етой структуре файл - все ок.Но как только пытаюсь прочитать из него вылазит error:Access voltation и т.д. вот код:
Assignfile(r,ExtractFilePath(Application.ExeName)+'data.dat');
reset(r);
while not eof(r) do
read(r,rr);
l.Caption :=rr.num; \\в етой срочке вылозит еррор...
l.SubItems.Add(rr.name);
l.SubItems.Add(rr.tel1);
l.SubItems.Add(rr.tel2);
l.SubItems.Add(rr.email);
l.SubItems.Add(rr.comment);
closefile(r);

Сергей М. (2007-09-21 16:27:00) [21]
ListView.Items

F@T@L_Err0r (2007-09-21 16:26:00) [22]
а какие тут нада параметры?

Ega23 (2007-09-21 16:25:00) [23]

> l := TListItem.Create()??? так???

О! Он не безнадёжен!
Именно так.
И Free потом.

Сергей М. (2007-09-21 16:25:00) [24]

> так?

Можно и так.

Плохиш (2007-09-21 16:24:00) [25]

> Ega23 © (21.09.07 16:23) [16]

Не царское это дело...

F@T@L_Err0r (2007-09-21 16:24:00) [26]
l := TListItem.Create()??? так???

Сергей М. (2007-09-21 16:24:00) [27]

> F@T@L_Err0r (21.09.07 16:22) [15]

Ну, положим, оттого что ты публично объявил свой гараж помещением для хранения своего авто, это самое авто там само по себе не появится, согласен ?)

Ega23 (2007-09-21 16:23:00) [28]

> В смысле??? обьявил и все.

Берём книгу и начинаем читать про объекты, конструкторы объектов, зачем они нужны и т.д.

F@T@L_Err0r (2007-09-21 16:22:00) [29]
В смысле??? обьявил и все.

Ega23 (2007-09-21 16:22:00) [30]

> Access voltation at address...

:)))))

Милый мой, это не код инициализации.. :)
Это последствия отсутствия такого кода

F@T@L_Err0r (2007-09-21 16:21:00) [31]
Access voltation at address...

Сергей М. (2007-09-21 16:21:00) [32]

> F@T@L_Err0r (21.09.07 16:19) [9]

Ну и где код инициализации поля l ?

Ega23 (2007-09-21 16:21:00) [33]
А ты этот TListItem создал?

Сергей М. (2007-09-21 16:19:00) [34]
Прямо так и говорит - "не фурычу" ?

F@T@L_Err0r (2007-09-21 16:19:00) [35]
public
{ Public declarations }
l:TListItem;
end;

Ega23 (2007-09-21 16:18:00) [36]
Что такое l?

Плохиш (2007-09-21 16:17:00) [37]

> Сергей М. © (21.09.07 16:14) [5]

Дорожка ведёт в никуда, у него просто эта его lне создана или не настроена ;-)

F@T@L_Err0r (2007-09-21 16:16:00) [38]
Не фурычит :( ?????

Сергей М. (2007-09-21 16:14:00) [39]

> F@T@L_Err0r (21.09.07 16:12) [4]

Замечательно.

Теперь пробуй этот код с учетом коррекции объявления типа в [3]

F@T@L_Err0r (2007-09-21 16:12:00) [40]
Вот полный код :
procedure TForm1.FormCreate(Sender: TObject);
var r:File of Rep;
rr:Rep;
begin
Assignfile(r,ExtractFilePath(Application.ExeName)+'data.dat');
reset(r);
while not eof(r) do
read(r,rr);
l.Caption :=rr.num;
l.SubItems.Add(rr.name);
l.SubItems.Add(rr.tel1);
l.SubItems.Add(rr.tel2);
l.SubItems.Add(rr.email);
l.SubItems.Add(rr.comment);
closefile(r);
end;

Страницы: < 1 2 3 >

Наверх

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