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

Как избежать такой ошибки? Abstract Error   Найти похожие ветки 

← →
Андрей   (2003-05-23 09:11) [0]

вот я в процедуре объявляю переменную типа TStrings и создаю ее, мне нужно в нее загрузить строки из файла, чтобы потом этот TStrings передать параметром в другую процедуру

procedure TMainForm.FileOpenActionExecute(Sender: TObject);
var FLLChild: TLogListChild;
L: TStrings;
begin
OpenDialog.DefaultExt:="*.llf";
OpenDialog.Filter:="Log list files (*.llf)|*.llf";
OpenDialog.Options := [ofEnableSizing];
if OpenDialog.Execute then begin
try
FLLChild := TLogListChild.Create(Application);
FLLChild.Caption := OpenDialog.FileName;
try
l := TStrings.Create;
l.LoadFromFile(OpenDialog.FileName);
FLLChild.LoadFileList(L);
finally
l.Free;
end;
except
Application.MessageBox(PChar("Error read file."),"Error",1);
end;
end;
end;

и при загрузке из файла у меня получается ошибка Abstract Error.
...я так понял, что эта переменная l не принадлежит форме (так чтоли?) поэтомй ошибка. Подскажите пожалуйста, как ее избежать?

---

← →
MBo ©   (2003-05-23 09:14) [1]

TStrings - абстрактный класс, и компилятор об этом пердупредить должен
l := TStrings List.Create;

---

← →
Андрей   (2003-05-23 09:24) [2]

:)) действительно!
пасибо

---

← →
Palladin ©   (2003-05-23 09:26) [3]

да, иногда нужно обращать внимание на то что пишется внизу

---

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

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



Память: 0.45 MB
Время: 0.013 c