TMemo

[vasyaRyzhyi]

На форме только memo1
Объявляю

var
str: string;

И делаю строку 5000 символов.
Добавляю

form1.Memo1.Lines.Add(str);

Читаю

str:=Memo1.Lines[0];
ShowMessage('new length='+IntToStr(length(str)));

получаю 1024
Что тут не так?

Если form1.ListBox1.Items.Add(str);

все нормально
но листбокс не дает редактировать на экране.

From Stilet: еще раз неотформатируешь пост - тему закрою.

[chertovich]

Может быть 5000 символов многова-то для одной строки в Memo? Может есть ограничения?

[Pein95]

а можеш ошібка изза того что в string можно вписаь только 256 символов?

[ArtGrek]

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

а можеш ошібка изза того что в string можно вписаь только 256 символов?

точно, подшитаи, после 256 отшет идет с начала с 0

[vasyaRyzhyi]

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

а можеш ошібка изза того что в string можно вписаь только 256 символов?

Возможно всё Но со строкой 1024 все нормально, чудеса появляются когда >1024
C 256 нет проблем вообще.

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

а можеш ошібка изза того что в string можно вписаь только 256 символов?

вообще то string вмещает до 2ГБ текста.
стоит подучить основы Delphi, а не Pascal.(из паскаля в Делфи есть тип ShortString, именно он вмещает 255 символов)

ТС, может потому что у вас строка содержит нечитабельные символы?

[veniside]

да это в общем известная проблема. В конце там, как обычно, все списали на мелкомягких.

По-любому внутри Дельфи есть ограничение на 4096 символов, так что 5000 не получится. Можно RichEdit попробовать, но там тоже не густо.

[chertovich]

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

вообще то string вмещает до 2ГБ текста.
стоит подучить основы Delphi, а не Pascal.(из паскаля в Делфи есть тип ShortString, именно он вмещает 255 символов)

ТС, может потому что у вас строка содержит нечитабельные символы?

Да, может в строке встречается 0 ?
Посмотри в отладчике символ #0 в строке

[Serge_Bliznykov]

угу. подтверждаю. Это связано с тем, что Memo - визуальный компонент (больше 1024 он отобразить не может, поэтому и отрасывает всё).

procedure TForm1.Button1Click(Sender: TObject);
var s : AnsiString;
  i : integer;
begin
  SetLength(s, 5000);
  for i:=1 to 5000 do
    s[i] := '*';

  ShowMessage('Length s = '+InttoStr(Length(s)));

  Memo1.Lines.Clear;
  Memo1.WordWrap := false;
  Memo1.Lines.Append(s);

  s := Memo1.Lines[0];
  ShowMessage('After Memo Length s = '+InttoStr(Length(s)));

end;

Ещё один повод не пользоваться этим тормозным TMemo
а для обработки строк использовать TStringList

[vasyaRyzhyi]

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

Можно RichEdit попробовать, но там тоже не густо.

Тоже пробовал. Для RichEdit максимум 4096 и он еще хуже чем Memo.
В Memo, если в 1024 не влазит, то переносит на след.строку, а RichEdit просто рубит.