Кружок нубов(Вопрос-Ответ)

[Kilatif]

Объясню конкретнее.... Мне Memo нужен для отправки письма. Соответственно в Memo у меня будет текст письма. Тексты будут достаточно обширные. А еще учитывая что текст этот юникодовский, т.е. это WideString, то каждый символ будет занимать 2 байта.

Вот прям сейчас набросал типичное письмо, которое мне нужно посылать и оно уже получилось почти 400 байт. Так что нет, не поместится

//Breadfan: Откуда инфа про 255 байт-то?

Добавлено через 2 часа 32 минуты

Breadfan: Откуда инфа про 255 байт-то?

В обычный тип 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 минут
У меня есть еще вопрос
Какой пакет отвечает за список членов клана? Ну и вообще за информацию о клане.

[supernewbie]

Сообщение от 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

[Kilatif]

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

есть ещё Memo1.Lines.Text

где же ты раньше был? )