VPF::Создание файла через метод класса

Yami

Дата 26.9.2010, 14:40 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 26.9.2010

Репутация: нет
Всего: нет

Значит нужно, чтобы создавался типизированный файл при помощи метода класса

Тип записей файла

Код


TElement=record
 key:char;
 x,y:real;
end;

Тип файла

Код


TRealFile=file of TElement;

Сам класс

Код


TFile=class(TObject)
Memo1: TMemo;
Fname:string;
public
F:TRealFile;
FSz:integer;
procedure CreateFile;
end;

При создании файла пользователь вводит имя файла(Fname) и его размер(FSz) (в новом окне)
Содержание файла генерируется рандомно

описание метода:

Код


procedure TFile.CreateFile;
var i:integer;
el:TElement;
begin
AssignFile(F,Fname);
Rewrite(F);
for i:=0 to FSz-1 do
begin
randomize;
el.key:='a';
el.x:=random(101);
el.y:=random(101);
write(F,el);
end;
CloseFile(F);
end;

Все компилируется, но при запуске(создании файла) выдает ошибку "EAccessViolation at adress..."

Никак не пойму что не так(

БелАмор

Дата 26.9.2010, 15:53 (ссылка)

(голосов:2)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 209
Регистрация: 10.6.2010
Где: Россия

Репутация: 5
Всего: 17

Цитата(Yami @ 26.9.2010, 14:40

)

при запуске(создании файла) выдает ошибку "EAccessViolation at adress..."

А вы не збываете создать объект своего класса перед его использованием?

Код


var
  Obj: TFile;
begin
  Obj := TFile.Create;
  // Работа
  Obj.Free;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »