VPF::Нулевые символы - Форум программистов

Гость_Sasha

Дата 2.5.2004, 14:16 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Если я читаю, как текстовик, например RAR архив, то на первом же и из CHAR0 это занятие обрывается, как сделать эту гадость проще и понятнее?

p0s0l

Дата 2.5.2004, 17:04 (ссылка)

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

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

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

Что-то не очень понял, но вроде так:
ты читаешь файл в память (например в Buf), а потом выводишь PChar(Buf) ?
Если так, то можешь сделать типа такого:

Код

procedure TForm1.Button3Click(Sender: TObject);
var
  f : file;
  s : string;
  p : integer;
begin
  AssignFile(f, 'c:\1.rar');
  Reset(f, 1);
  SetLength(s, FileSize(f));
  BlockRead(f, s[1], Length(s));
// щас нулевые символы заменим вопросами
  repeat
    p := Pos(#0, s);
    if p = 0 then Break;
    s[p] := '?';
  until False;
  CloseFile(f);
  Memo1.Text := s;
end;

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

С уважением, г-н Посол.

SlaUr

Дата 5.5.2004, 08:24 (ссылка)

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

Загрузка ...

Опытный

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

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

Цитата

Если я читаю, как текстовик, например RAR архив

Как именно вы читаете (приведите код)

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