Есть пример:

Код

For i:=0 to 1000 do   StringVar := StringVar +'текст'+'текст'

Как узнать размер текстовой переменной В БАЙТАХ, а не в символах?

SizeOf(StringVar) показывает 4 байта постоянно.

Length(StringVar)*SizeOf(StringVar[1]) + 4*3 + 4
Добавлено @ 15:45
Но, если StringVar содержит MultiByte строку, то эта формула не прокатит.

Это сообщение отредактировал(а) Петрович - 25.3.2005, 15:44

что есть MultiByte строка

Слышь, Петрович, а если переменную сохранить в файл (обычный текстовый), размер файла будет тот же, что и по этой формуле, которую ты дал?



Это сообщение отредактировал(а) dsergey - 25.3.2005, 16:05

dsergey
Нет, размер файла будет в размер кластера.

В размер кластера на диске, а на самом деле?

Точно, это он места на диске будет занимать кратное размеру кластера, а истенный размер будет то, что тебе надо.

Цитата

Length(StringVar)*SizeOf(StringVar[1]) + 4*3 + 4

Я понимаю что, мы, программисты, любим понавыдумывать, но чтоб такое. Пучуму именно так?

Цитата(dsergey @ 26.3.2005, 11:27)

Я понимаю что, мы, программисты, любим понавыдумывать, но чтоб такое. Пучуму именно так?

Почитай мою статью. Если после этого останутся еще вопросы, задавай.

Length(StringVar)*SizeOf(char)

Может быть я слепой, но почему + 4*3 + 4 я так и не понял.
ничего умне в голову пока не пришло ...

Это сообщение отредактировал(а) Marriage - 26.3.2005, 20:42

Цитата(Marriage @ 26.3.2005, 20:19)

но почему + 4*3 + 4 я так и не понял.  ничего умне в голову пока не пришло ...

Блин, ошибочка вышла. Если точнее, то размер равен Length(StringVar)*SizeOf(StringVar[1]) + 1 + 4*2 + 4
Для тех кому не понятно поясню:
+ 1 - это дополнительный признак конца строки - символ с кодом 0 (#0)
+ 4*2 - это два слова находящиеся перед самой строкой Счётчик ссылок и Длина строки
+ 4 - это собственно переменная хранящая указатель на строку.

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

Петрович, смотри, что получается

размер текстового файла кодировки OEM (DOS) - 3921,
копируем через буфер в memo1,
считаем по "твоему методу":

Код

Function TfmMain.LengthStr(AString:String):String; begin   result := '-1';   if AString <> '' then    result := IntToStr(Length(AString)*SizeOf(AString[1]) + 1 + 4*2 + 4); end;

Код

ShowMessage(LengthStr(memo1.Text));  выдает 4010

а если сохранить содержимое memo1 в файл(memo1.lines.savetofile('c:\11.txt')),
то вообще показывает 3997.

Это сообщение отредактировал(а) dsergey - 31.3.2005, 14:26

а разве 1 символ не равен 1 байту, тем более если речь идет о ПЕРЕМЕННОЙ?

Так какой размер ты хочешь получить?
Размер занимаемой памяти переменной String или размер файла в байтах?
Если размер файла, то просто берешь количество символов, добавляешь к ним количество строк*2 - это и будет размер файла.

Цитата(dsergey @ 31.3.2005, 14:24)

размер текстового файла кодировки OEM (DOS) - 3921, если сохранить содержимое memo1 в файл(memo1.lines.savetofile('c:\11.txt')), то вообще показывает 3997.

Естественно. Мемо переносит строки, которые не влазят по ширине.
И, когда ты сохраняешь, строк становится больше.
А, как я писал выше, к размеру добавляется кол-во строк*2.
Вот из-за этого и возникла погрешность - строк стало больше, размер вырос.

По подсчетам - 91581 байт (формула Петровича)
Размере файла - 91144 байт (это не размер на диске, прошу не путать)

Получается разница в 437 байт

Почему так?