немогу найти причину ошибки

← →
Разведка (2012-08-24 17:43) [0]

В потоке создается класс TStrings и он должен загрузить из файла, но при попытке чтения файла возникает ошибка:
First chance exception at $7C812AFB. Exception class EAbstractError with message "Abstract Error". Process WordEdits.exe (3168)

procedure TDicProc.Execute; var Asl: TStrings; i,ACnt,BCnt: Integer; begin { if FAList.Count = 0 then begin SendDebugMsgLastError("NewThread.Execute error:",GetLastError,0); Exit; end; } try Asl := TStrings.Create; //Asl - Add String list Asl.LoadFromFile("C:\WORDS\Common.dic"); finally Asl.Free; end;

← →
DVM © (2012-08-24 17:49) [1]

Так у тебя же в ошибке все написано. Нельзя создать экземпляр абстрактного класса, коим является TStrins. Используй TStringList.

← →
Разведка (2012-08-24 17:53) [2]

Вот блин, как я такую это не увидел??? Думал что именно так и написано TStringList

Все пока.

← →
Сергей М. © (2012-08-24 20:41) [3]

> Разведка (24.08.12 17:53) [2]

Хреновая из тебя разведка - облажался-засветился при первой же вылазке)

← →
Dimka Maslov © (2012-08-24 21:35) [4]

Может быть и правильно, что в сях создание экземпляра класса с абстрактными методами отлавливается на этапе компиляции

> Dimka Maslov © (24.08.12 21:35) [4]

"Отлов" - понятие растяжимое..
Можно просто предупредить, а можно и отлуп дать ..
И тот и иной вариант имеют право на жизнь.
Равно как и вариант оставить это на совести разработчика до времён рантайма его творения)

немогу найти причину ошибки Найти похожие ветки