Странный класс
Есть класс
TLoader = class
Files array of string[12];
FilesCount integer;
procedure LoadSavedComps;
end;
(И соответствено var Loader TLoader;)
Начало процедуры
procedure TLoader.LoadSavedComps;
var
F TSearchRec;
str string;
i integer;
T TEXT;
label SEARCH_DONE;
begin
FilesCount=0;
if FindFirst('./Data/Tables/????????.tbl',faAnyFile,F)<>0 then
goto SEARCH_DONE;
SetLength(Files,10);
И вот эта самая процедура вылетает по Аксес Виолейшен (Read Of Addres F...F) на первой, или, если она закомментирована, то на 5-ой строке. Функция-член класса не может получить доступ к другому члену класса? /