14.05.2011, 20:38
|
#1705
|
Местный
Регистрация: 23.09.2009
Сообщений: 1,232
Сказал Спасибо: 119
Имеет 172 спасибок в 134 сообщенях
|
Цитата:
Сообщение от Kilatif
Объясню конкретнее.... Мне Memo нужен для отправки письма. Соответственно в Memo у меня будет текст письма. Тексты будут достаточно обширные. А еще учитывая что текст этот юникодовский, т.е. это WideString, то каждый символ будет занимать 2 байта.
Вот прям сейчас набросал типичное письмо, которое мне нужно посылать и оно уже получилось почти 400 байт. Так что нет, не поместится
//Breadfan: Откуда инфа про 255 байт-то?
Добавлено через 2 часа 32 минуты
В обычный тип string помещается только 255 (или 256...) байт текста, не больше. По крайней мере это и в делфе и в обычном пасе. Может быть в FastScript по другому, но я так не думаю... В общем, решение я нашел. Вот, может кому пригодиться:
Код:
procedure WriteMemo(M_Buf : TMemo);
var i : integer;
begin
for i := 0 to M_Buf.Lines.Count-1 do
begin
WriteS(M_Buf.Lines.Strings[i]);
Delete(buf, length(buf) - 1, 2);
buf := buf + #$0D#$00#$0A#$00;
end;
WriteS(M_Buf.Lines.Strings[M_Buf.Lines.Count]);
Delete(buf, length(buf) - 1, 2);
buf := buf + #$00#$00;
end;
Добавлено через 16 минут
У меня есть еще вопрос
Какой пакет отвечает за список членов клана? Ну и вообще за информацию о клане.
|
есть ещё Memo1.Lines.Text
__________________
Начало.
|
|
|