Форум: "Основная";
Текущий архив: 2003.06.02;
Скачать: [xml.tar.bz2];
Вниз
Как избежать такой ошибки? 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 вся ветка
Форум: "Основная";
Текущий архив: 2003.06.02;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c
