Записать двоичным методом строку.

[Alex Cones]

Мне нужно двоичным методом (через BlockWrite) записать строку так, чтобы её можно было открыть через блокнот и увидеть, что содержалось в строке. Пробую так:

Program testofstr;
Var
 S:ShortString;
 F:File;
Begin
 AssignFile(F, '1.txt');
 Rewrite(F,1);
 S:='101';
 BlockWrite(F,S,SizeOf(S));
 CloseFile(F);
End.

Но записывает не 3 байта, а 256. Причем gedit кричит, что это двоичный файл и открывать его он не собирается. Открываю bless`ом и вижу следующее:

[Олвин]

Можно по одному символу записать

[Alex Cones]

А разница? Все равно запишет 256

[Goodwin98]

А если так ?
Length(S);

[Олвин]

А так:

var
ch : char;
begin
{...}
for i := 1 to length(s) do
begin
ch := s[i];
BlockWrite(F, ch, SizeOf(ch));
end;
{...}

[raxp]

sizeof берет размерность типа... всего-лишь исправь на...

BlockWrite(F, S, length(s));

[Alex Cones]

всего-лишь исправь на...

Сейчас попробую...
Хм...

[здесь $03, но из-за цитаты он исчезает]10

Идет сдвиг на один байт. Потому, что в начале записывается $03 зачем-то. Это из-за никса?
А так замечательно, даже gedit читает.

P.S. Сделал через char, всем спасибо.

[Goodwin98]

Идет сдвиг на один байт. Потому, что в начале записывается $03 зачем-то. Это из-за никса?

Это паскалевский формат строки. Первым байтом идет длина.

[Alex Cones]

Первым байтом идет длина.

Тю, епт. Точно. Что-то мне на ум все время шла сишная строка. Еще удивлялся, почему после 101 нули идут.

[Stilet]

Добавлю на всякий пожаренный (или пожарный) что если использовать стандартные строки Делфи (String обычный) то писать нужно так:

Program testofstr;
Var
 S:String;
 F:File of char;
Begin
 AssignFile(F, '1.txt');
 Rewrite(F,1);
 S:='101';
 BlockWrite(F,S[1],Length(s));
 CloseFile(F);
End.

И все будет работать в ажуре