VPF::Как дописать некоторую строку в начало TFileStream

WDeveloper

Дата 1.2.2007, 00:17 (ссылка)

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

Загрузка ...

Новичок

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

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

Побегал по поиску так и не нашёл ничего дельного, хотя тем просто уйма.
Не понимаю как в файловый поток подписать некоторое кол-во символов вначало?
Я пытался сделать это так:

Код

  FStream := TFileStream.Create( 'file1.txt', fmOpenReadWrite );
  FStream.Seek( 0, soFromBeginning );
  FStream.Write ( 'abc', 3 );

Но 3 первых символа просто перезаписались, а мне необходимо добавить.
Потом попробовать создать поток в памяти записать в начале нужный мне префикс, а затем только всё содержимое из файлового.. но MemoryStream так и осталась пустой, перебросить в него почему-то не удалось..

И ещё. Почему вот это не срабатывает:

Код


var Stream : TMemoryStream;
....
  Stream := TMemoryStream.Create;
  Str := '35643';
  Stream.WriteBuffer ( Str[1], SizeOf ( String ) );

Почему поток пуст?

Snowy

Дата 1.2.2007, 00:33 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Код


var
  ms: TMemoryStream;
  fs: TFileStream;
  s:  string;
begin
  ms := TMemoryStream.Create;
  try
    fs := TFileStream.Create('file.txt', fmOpenRead);
    s := 'строка';
    ms.Write(s[1], Length(s));
    ms.CopyFrom(fs, fs.Size);
    fs.Free;
    ms.SaveToFile('file.txt');
  finally
    ms.Free;
  end;

WDeveloper

Дата 1.2.2007, 00:44 (ссылка)

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

Загрузка ...

Новичок

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

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

Ахренеть

Я убил на это полтора часа так и не добравшись до результата. Спасибо большое!

Romikgy

Дата 1.2.2007, 10:57 (ссылка)

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

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

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

А че не заюзать TStringList ?

Код


var 
sl: TStringList;
s: string;
begin
 sl:=TStringList.Create;
s := 'строка';
sl.LoadFromFile('file.txt');
sl.Text:=s+sl.Text;
sl.SaveToFile('file.txt');
sl.Free;
end;

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

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