VPF::Строки и файлы - Форум программистов

PsiMagistr

Дата 9.7.2010, 17:01 (ссылка)

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

Загрузка ...

Опытный

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

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

Ребята, если вам не сложно обясните мне следующую вещь.

Записываю строку в файл через FileStream: (Я в курсе что есть более удобные способы)

Объявляем глобально:

Код


var F:TfileStream;

Обработчик кнопки записи:

Код


procedure TForm1.Button1Click(Sender: TObject);
var S1 :String[255]; //Переменная записи.
begin
S1:= T.Text; //T это просто текстовое поле.
F:= TfileStream.Create(ExtractFilePath(Application.ExeName)+'Какой-то файл', fmCreate);
F.Seek(0,soFromBeginning);
F.Write(S1, Sizeof(S1));
F.Free;
end;

А теперь пытаемся прочесть. Обработчик кнопки чтения:

Код


procedure TForm1.Button2Click(Sender: TObject);
var S2:String[4]; //Обратите внимание, что размер переменной, отведенной для чтения меньше размера переменной для записи.
begin
F:= TfileStream.Create(ExtractFilePath(Application.ExeName)+'Какой-то файл', fmOpenRead);
F.Seek(0,soFromBeginning);
F.Read(S2,Sizeof(S2) );
F.Free;
T.Text := S2;
end;

Я думал, что допустим запишем в файл строку из 255 символов, а считаем меньшей по размеру переменной только первые 4.

Не тут то было. Получил каракули.

Если переменная для чтения равна по длине переменной для записи - все проходит как по маслу...

Это сообщение отредактировал(а) PsiMagistr - 9.7.2010, 18:01

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

"Арфы нет? Возьмите бубен!

Ребята, будем жить!"

(с) "В бой идут одни старики"

---

"ИЕ" - один из самых сумасшедших браузеров в нашей галактике.

Amphiluke

Дата 9.7.2010, 18:43 (ссылка)

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

Загрузка ...

☽

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

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

А вы помните, что символ с индексом 0 содержит длину строки?
Вот вы читаете кусок строки, а нулевой символ этой строки неизменно остается равным длине исходной строки. Попробуйте:

Код


procedure TForm1.Button2Click(Sender: TObject);
var S2:String[4];
begin
F:= TfileStream.Create(ExtractFilePath(Application.ExeName)+'Какой-то файл', fmOpenRead);
F.Seek(0,soFromBeginning);
F.Read(S2,Sizeof(S2) );
S2[0] := #4; // <---
F.Free;
T.Text := S2;
end;

PsiMagistr

Дата 9.7.2010, 18:48 (ссылка)

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

Загрузка ...

Опытный

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

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

т.е. Идет попытка считывания 0 символа?

Я признаться не совсем понял.

Это сообщение отредактировал(а) PsiMagistr - 9.7.2010, 18:50

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

Amphiluke

Дата 9.7.2010, 18:55 (ссылка)

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

Загрузка ...

☽

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

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

Ну, вы сначала пишете в файл, допустим, строку 'qwerty'. Записывается 7 байтов, из которых первый (нулевой) — #6.
Затем прочитываете строку типа string[4]. Ее размер — 5. Нулевой символ строки устанавливается в #6, что не соответствует изначальному #4. Отсюда лишние каракули в хвосте.

PsiMagistr

Дата 9.7.2010, 19:07 (ссылка)

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

Загрузка ...

Опытный

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

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

Amphiluke, БЛИН, не ну какой дуб, однако. СПАСИБО Большое.

Тупею от жары, чисто тупею.

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

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