VPF::io error 1784 - Форум программистов

KasheyBro

Дата 26.11.2009, 04:36 (ссылка)

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

Загрузка ...

Новичок

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

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

Код


type
  TMyData = Array[0..100]of Real;

//======================

type
  TMyClass = class(TObject)
  _data:TMyData;
  procedure SaveToFile();
end;

procedure TMyClass.SaveToFile();
   var f:File of TMyData;
   begin
     AssignFile(f, 'Test.dat');
     Reset(f);
     write(f,self._data);
     CloseFile(f);
end;

Вылезает IO error 1784, где косяк?

Это сообщение отредактировал(а) KasheyBro - 26.11.2009, 04:48

Frees

Дата 26.11.2009, 08:35 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

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

описание ошибки, может поможет
http://support.microsoft.com/kb/186553

Это сообщение отредактировал(а) Frees - 26.11.2009, 08:39

--------------------

Кольцов Виктор Владимирович

KasheyBro

Дата 26.11.2009, 23:12 (ссылка)

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

Загрузка ...

Новичок

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

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

Frees: да я это уже видел, чет мыслей по этому поводу нет
Проблема в self._data:

Код


procedure TMyClass.SaveToFile();
var f:File of TMyData;
    d:TMyData;
    i:Integer;

begin
  for i:=0 to 63 do
  begin
    d[i]:=i;
  end;
  AssignFile(f, 'Test.dat');
  Reset(f);
  write(f,d);
  CloseFile(f);
end;

- так прекрасно пишет/читает файл

Код


var f:File of Real;
    d:TMyData;
    i:Integer;
begin
  AssignFile(f, 'Test.dat');
  Reset(f);
  for i:=0 to 63 do
  begin
    write(f,self._data[i]);
  end;
  CloseFile(f);
end;

- io error 1784. На self._data[i] ругается.
Почему я не могу в Write передавать собственные поля?

Или может свой тип данных можно как-то по другому записать?

Keeper89

Дата 27.11.2009, 00:15 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

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

KasheyBro, попробуйте убрать self..

Как вариант, можно сделать файл типизированным.

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Teleport

Дата 27.11.2009, 00:19 (ссылка)

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

Загрузка ...

Опытный

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

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

Не уверен, в ответе - но все же я просто убрал перед data знак подчеркивания, что он меня смутил, потому как вначале стоит. Может в нем дело?? Или я не в ту степь ушел?

Код


type
  TMyData = Array[0..100]of Real;

type
  TMyClass = class(TObject)
  data:TMyData;
  procedure SaveToFile();
end;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TMyClass.SaveToFile();
var f:File of Real;
    d:TMyData;
    i:Integer;
begin
  AssignFile(f, 'Test.dat');
  Reset(f);
  for i:=0 to 63 do
  begin
    write(f,self.data[i]);
  end;
  CloseFile(f);
end;

end.

Этот код откомпилировался без проблем.

Это сообщение отредактировал(а) Teleport - 27.11.2009, 00:21

--------------------

pei7a

Дата 8.5.2011, 12:55 (ссылка)

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

Загрузка ...

Новичок

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

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

это ошибка возникает когда пишешь данные не соответствующих типов в буфер

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