VPF::Запись/чтение структуры в/из файл

Firex

Дата 7.9.2011, 16:53 (ссылка)

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

Загрузка ...

Шустрый

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

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

Записывает структуру правильно(вроде, т.к. ошибок нет), а вот при чтении возникает ошибка(крах).
Процедура записи:

Код


var
i:integer;
begin
if SaveDialog1.Execute then begin
FileNameZ:=SaveDialog1.FileName;
AssignFile(Fz,FileNameZ);
Rewrite(Fz);
for i:=0 to count do write(Fz,Base[i]);
end;

Процедура чтения:

Код


begin
if OpenDialog1.Execute then begin
FileNameZ:=OpenDialog1.FileName;
AssignFile(Fz,FileNameZ);
reset(Fz);
count:=0;
while (not Eof(Fz)) do begin
read(Fz,Base[count]);
ListBox1.Items[count]:=Base[count].name+','+IntToStr(Base[count].cost)+','+IntToStr(Base[count].exp)+','+IntToStr(Base[count].rel)+','+IntToStr(Base[count].com);
inc(count);
end;
end;
end;

Ошибка при чтении "I/O 103"(RAD Studio)

Это сообщение отредактировал(а) Firex - 7.9.2011, 20:00

Данкинг

Дата 7.9.2011, 17:09 (ссылка)

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

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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

Я при открытии что-то AssignFile и иже с ним не нашёл.

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

There's nothing left but silent epitaphs.

Firex

Дата 7.9.2011, 17:18 (ссылка)

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

Загрузка ...

Шустрый

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

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

Извиняюсь, почему-то код не весь скопировался, в теме поправил. У меня в коде это есть.

Данкинг

Дата 7.9.2011, 18:29 (ссылка)

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

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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

Цитата(Firex @ 7.9.2011, 18:18

)

У меня в коде это есть.

Ну хорошо, теперь я в коде reset'а не вижу. smile

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

There's nothing left but silent epitaphs.

Firex

Дата 7.9.2011, 20:05 (ссылка)

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

Загрузка ...

Шустрый

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

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

Добавил, ошибка исчезла)) за это спс. Небольшая проблема: не правильно считывает первый элемент, и перечитывает 1 лишний элемент, оба они заносятся в массив пустыми( Может быть неправильно записывает в файл?).

Данкинг

Дата 7.9.2011, 21:46 (ссылка)

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

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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

Не знаю, попробуй readln вместо read.

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

There's nothing left but silent epitaphs.

Firex

Дата 8.9.2011, 09:02 (ссылка)

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

Загрузка ...

Шустрый

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

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

Проблема решилась путём правильного выставления счётчиков, теперь всё работает как надо:
Запись

Код


procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
begin
if SaveDialog1.Execute then begin
FileNameZ:=SaveDialog1.FileName;
AssignFile(Fz,FileNameZ);
Rewrite(Fz);
for i:=1 to count-1 do begin
write(Fz,Base[i]);
showmessage(Base[i].name);
end;

Чтение

Код


procedure TForm1.Button3Click(Sender: TObject);
begin
if OpenDialog1.Execute then begin
FileNameZ:=OpenDialog1.FileName;
AssignFile(Fz,FileNameZ);
reset(Fz);
count:=1;
while (not Eof(Fz)) do begin
read(Fz,Base[count]);
ListBox1.Items[count-1]:=Base[count].name+','+IntToStr(Base[count].cost)+','+IntToStr(Base[count].exp)+','+IntToStr(Base[count].rel)+','+IntToStr(Base[count].com);
inc(count);
end;
end;
end;

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