Скачать: CL | DM;

TObjectList. Чтение и запись   Найти похожие ветки 

← →
kilonet   (2006-02-08 19:48) [0]

объявляю класс и список объектов этого типа:

 TFile = class  
   Name: String;
 end;

FileList: TObjectList;

procedure TForm1.FormCreate(Sender: TObject);
begin
 FileList := TObjectList.Create (True);
// ...

добавляю объекты так:

var
 CurFile: TFile;
begin
 CurFile := TFile.Create;
 CurFile.Name := ExtractFileName(SearchRec.Name);
 FileList.Add(CurFile);

при чтении:

var
 i: Integer;
 xx: TFile;
begin
 xx := TFile.Create;
 for i := 0 to FileList.Count - 1 do
 begin
   xx := TFile(FFilelist.First);
   ListBox.Items.Add(xx.Name);
 end;

выдаёт AccessViolation. Что я делаю неправильно?

---

← →
Джо ©   (2006-02-08 19:55) [1]

> xx := TFile.Create;

Это не нужно.
--

>   xx := TFile(FFilelist.First);

заменить на TFile(FFileList[I]).
--
По остальному: где-то в коде есть еще ошибки.

---

← →
Gero ©   (2006-02-08 20:31) [2]

Других ошибок в приведенном коде нет.

---

← →
ЮЮ ©   (2006-02-09 03:14) [3]

> Других ошибок в приведенном коде нет.

Думаешь, пробегать  в цикле один список(FileList), а выводить при этом первый элемент другого списка(FFilelist) - нормальное решение?

---

← →
Gero ©   (2006-02-09 03:17) [4]

> ЮЮ ©   (09.02.06 03:14)

Да, я был крайне невнимателен и, как всегда, поторопился с выводами :)
Спасибо.

---

← →
Джо ©   (2006-02-09 03:23) [5]

Что, ж FileList может быть и свойством, связанным с полем FFileList...

---

← →
Gero ©   (2006-02-09 03:24) [6]

> Что, ж FileList может быть и свойством, связанным с полем
> FFileList...

А может и не быть. У нас нет никаких данных по этому поводу.

---

← →
Джо ©   (2006-02-09 03:29) [7]

> [6] Gero ©   (09.02.06 03:24)
> А может и не быть. У нас нет никаких данных по этому поводу.

Ну, данные таковы, что имеем "Access violation" в ран-тайм, а не "Undeclared identifier" в дизайн-тайм. Впрочем, может быть все, что угодно, учитывая уровень сабжевого кода...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.03 c