Использование TStream.WriteAnsiString

[Padre_Mortius]

Почему или для чего при записи строки в файл через поток Stream в начале строки всегда пишется ее длина?

Код приведен из модуля streams.inc

Код: Выделить всё

Procedure TStream.WriteAnsiString (S : String);

  Var L : Longint;

  begin
    L:=Length(S);
    WriteBuffer (L,SizeOf(L));
    WriteBuffer (Pointer(S)^,L);
  end;

Это фича или баг?

[Brainenjii]

а как достающий из потока иначе узнает длинну извлекаемой строки ?

[Padre_Mortius]

Об этом я как раз и не подумал. Но в тоже самое время если я пишу в файл информацию типа лога, которая должна быть визуальна (текстовая информация), то первые 4 байта немного мозолят глаза

[Brainenjii]

Если там только текст, то может TStringList лучше ?

[v-t-l]

Или сразу

Код: Выделить всё

Stream.WriteBuffer(PChar(S),Length(S))

[Padre_Mortius]

to v-t-l

Данный вариант уж был опробован. Результат = двоичные данные в файле.

А правильным вариантом является

Код: Выделить всё

Stream.WriteBuffer(Pointer(S)^, Length(S))

[Padre_Mortius]

Если там только текст, то может TStringList лучше ?

Не проще. Держать в памяти компьютера несколько десятков тысяч строк лога (которые можно потерять в случае ошибки) или просто добавить запись в файл.

[Attid]

Padre_Mortius
в файл проще writeln сделать