Не получается добавить в memo текст больше 255 символов

[Norton]

Не получается добавить информацию в memo, пишит
[Error] Unit1.pas(40): String literals may have at most 255 elements

procedure TForm1.Label1Click(Sender: TObject);
begin
Memo1.Visible:=True;
Memo1.Clear;
Memo1.Lines.Add('Основное с точки зрения внешнего вида свойство кнопки - Caption (надпись). В надписях кнопок можно предусматривать использование клавиш ускоренного доступа, выделяя для этого один из символов надписи. Перед символом, который должен соответствовать клавише ускоренного доступа, ставится символ амперсанта "&". Этот символ не появляется в надписи, а следующий за ним символ оказывается подчеркнутым. Тогда пользователь может вместо щелчка на кнопке нажать в любой момент клавишу Alt совместно с клавишей выделенного символа. ');
Memo1.SetFocus;
end;

Он текст вставляет, но если символов не больше 255.
Не подскажите как сделать, что бы он в memo вставлял безграничное число символов.

[Ntlegend]

var s:WideString;
begin
s:='строка любой длинны';
Memo1.Lines.Add(s);
//////////////////////////
//вариант 2
/////////////////////////
Memo1.Text:='строка любой длинны';
//////////////////////////
//////////////////////////
//вариант 3
/////////////////////////
Memo1.Lines.Add('255 символов строки 1');
Memo1.Lines.Add('255 символов строки 2');
Memo1.Lines.Add('255 символов строки 3');
...

[Norton]

получилось только по 3 варианту.Но это слишком долго...
попроще бы.Я не знаю как задать число символов.По 1 и 2 варианту, он всеравно пишет мол , у меня больше 255 символов, мне бы изменить, чтобы символов было неограниченно.

[Ntlegend]

извеняюся немного не проверил.. действительно одна строка должна быть 255 символов.. но ее можна написать и так

var s:WideString;
begin
s:='строка 255 символов'+'строка 255 символов'+'строка 255 символов'+...+'строка 255 символов';
Memo1.Lines.Add(s);

кстати.. такую составную строку можна написать и в Memo1.Lines.Add();

[program123]

Попробуйте так

var
stroka:variant;
kol:integer;
....................
procedure TForm1.Button1Click(Sender: TObject);
begin
     stroka:=Edit1.Text;   
     Memo1.Lines.Add(stroka);
     kol:=length(stroka);     // Отслеживаем кол-во символов в строке
     label2.Caption:=IntToStr(kol); //
end;

[Norton]

program123 - заносит в memo через Edit.Это я понял как.А мне надо заносить в нутри программы , где пишется код.Что бы при нажатии на Label у меня появлялось определение в memo.

[program123]

Ну сделал так, разделил весь текст на 3 переменные

procedure TForm1.Label1Click(Sender: TObject);
var
   str:WideString;
   str1:WideString;
   str2:WideString;
begin
str:='Основное с точки зрения внешнего вида свойство кнопки - Caption (надпись). В надписях кнопок можно предусматривать использование клавиш ';


str1:='ускоренного доступа, выделяя для этого один из символов надписи. Перед символом, который должен соответствовать клавише ускоренного доступа, ставится символ амперсанта "&". Этот символ не появляется в надписи,';


str2:='а следующий за ним символ оказывается подчеркнутым. Тогда пользователь может вместо щелчка на кнопке нажать в любой момент клавишу Alt совместно с клавишей выделенного символа.';

Memo1.Lines.Add(str+str1+str2);
end;

[Norton]

ладно спасибо большое.Разобрался.Буду делить текст по частям.

[Andrei]

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

Не получается добавить информацию в memo, пишит
[Error] Unit1.pas(40): String literals may have at most 255 elements

...

Он текст вставляет, но если символов не больше 255.
...

Это требование компилятора чтобы текстовая константа в тексте программы содержала не более 255 символов.

Следующий код вполне проходит:

procedure TForm1.Button1Click(Sender: TObject);
var s: String;
begin
  s:= 'Основное с точки зрения внешнего вида свойство кнопки - Caption (надпись). В надписях кнопок можно предусматривать использование клавиш ';
  s:= s+'ускоренного доступа, выделяя для этого один из символов надписи. Перед символом, который должен соответствовать клавише ускоренного доступа, ставится символ амперсанта "&". Этот символ не появляется в надписи,';
  s:= s+'а следующий за ним символ оказывается подчеркнутым. Тогда пользователь может вместо щелчка на кнопке нажать в любой момент клавишу Alt совместно с клавишей выделенного символа.';
  Memo1.Clear;
  Memo1.Lines.Add(s);
end;

Ошибка предложенного мною кода может возникнуть, если в компиляторе стоит директива $H.
Тогда тип String становится равным ShortString и длина переменной ограничивается 255 символами.

По умолчанию устанавливается директива {H+} и тип String равняется AnsiString и может содержать примерно 2*10^30 символов.