Ищу нужный тип строки

[Altera]

Привет всем!
Мне ужасно стыдно такое спрашивать, однако я с этим никогда не сталкивался.
Нет ли такого типа строк, размер переменной которого равнялся-бы размеру строки?
Дело в том, что мне нужно записывать строки в файл (и не только строки, это что-бы в textFile мне не рекомендовали) Но испльзовать строки с жёстким размером в 256 байт как-то не удобно, лишний размер, а с обычными строками приходиться циклом записывать

[IT-man]

s:string[20];

строка в 20 символов

[Sazary]

Сообщение от IT-man

строка в 20 символов

Как я понял, нужно как раз избавиться от этой фиксированности.
То есть строка "123" должна занимать 3 байта.

Вроде, Ansistring подходит.

procedure TForm1.Button1Click(Sender: TObject);
var s : ansistring;
begin
s := '2324';
ShowMessage(IntToSTr(sizeof(s)));

end;

[Пепел Феникса]

Sazary, Ансистринг это простой стринг и есть.

Altera, обьясни подробнее...
просто как я понимаю тебе нужно чтобы вместе со строкой в файл записывалось и её длина?

[Sazary]

Сообщение от Пепел Феникса

Ансистринг это простой стринг и есть.

Так я об этом и сказал ) В Делфи-то только 3 типа строк.
И Ансистринг (он же стринг) как раз подходит.

[Serge_Bliznykov]

а я бы рекомендовал использовать ShortString и писать полностью, вместе с длиной строки (она находится в нулевом байте:

var s:ShortString;
     f : file of byte;
begin
   ....
   s := 'Test';
   BlockWrite(f,s[0], Length(s)+1);
...

[Xcopy]

Кстати а максималь в стринге скока символов??? (в 2 строке) Вроде 255 или я ошибаюсь?

[Sazary]

Кстати а максималь в стринге скока символов??? (в 2 строке)

Обычный стринг имеет практически неограниченный размер (естественно, зависит от свободной памяти).

[SunKnight]

Кстати а максималь в стринге скока символов??? (в 2 строке) Вроде 255 или я ошибаюсь?

Вообще то 255, а в частности может содержать до 2 Гб инфы.

[Altera]

Сообщение от Пепел Феникса

Altera, обьясни подробнее...
просто как я понимаю тебе нужно чтобы вместе со строкой в файл записывалось и её длина?

s := 'altera';
sizeOf(s) = 7; //6 + байт, указывающий на длину строки

s := 'smile';
sizeOf(s) = 6; //5 + байт, указывающий на длину строки

s := 'Клуб ПРОграммистов';
sizeOf(s) = 19; //18 + байт, указывающий на длину строки