Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Странный класс

Аноним
Или это только мне он кажется странным...
Есть класс

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-ой строке. Функция-член класса не может получить доступ к другому члену класса? /
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог