Как узнать размер текста в TStringsList?

[SalasAndriy]

Доброго времени суток!

Нужно узнать размер данных в TStringList не сохраняя их TStringList.SaveToFile или TStringList.SaveToStream...

Как его вычислить? Так чтобы работало быстро...

Среда RAD Studio 2010.

Какие есть варианты кроме этого?

TextSize := 0;
for I := 0 to Comments.Count - 1 do
  Inc(TextSize, Length(Comments[i])+2)

[Halogen]

А разве не TStringList вместо TStringsList ?

[Кольша]

sizeof(Comments) можно попробовать.

[phomm]

Кольша, Ваш ответ неверен, sizeof (любой экземпляр класса) = sizeof(pointer) т.е. 4 или 8 байт (в зависимости 32- или 64 битная платформа).
Думаю, подойдёт ответ

TextSize := Length(Comments.Text);

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

а вам надо количество байт или количество символов?
если первое, то умножить на SizeOf(Char) не забудьте.

[Stilet]

размер данных в TStringsList

...:=Lenght(Comments.text);

[SalasAndriy]

Сообщение от Halogen

А разве не TStringList вместо TStringsList ?

Прошу прощения, очапетка...

Сообщение от phomm

Кольша, Ваш ответ неверен, sizeof (любой экземпляр класса) = sizeof(pointer) т.е. 4 или 8 байт (в зависимости 32- или 64 битная платформа).
Думаю, подойдёт ответ

TextSize := Length(Comments.Text);

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

а вам надо количество байт или количество символов?
если первое, то умножить на SizeOf(Char) не забудьте.

Нужно количество байт... Будет ли такой код:

TextSize := Length(Comments.Text) * SizeOf(Char);

Работать быстрее, чем если бы я просто сохранил все в файл и узнал размер файла? И если да, то будет ли он быстрее этого кода?

TextSize := 0;
for I := 0 to Comments.Count - 1 do
  Inc(TextSize, (Length(Comments[i])+2) * SizeOf(Char))

[Stilet]

Работать быстрее

Да. Будет.