Ограничение текста в RichEdit1

[Polotenchik]

Подскажите можно ли решить проблему с ограничением текста 255?
Естественно можно сделать так:

procedure TForm1.Button1Click(Sender: TObject);
begin
RichEdit1.Text:='длинный текст'+'продолжение текста';
end;

но хотелось бы сразу вставлять весь текст.
Может есть решение или какой-нибудь другой компонент?

[VVM]

Как вариант, можно запихать весть текст в файл и загрузить потом разом.

[Terran]

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

Подскажите можно ли решить проблему с ограничением текста 255?
Естественно можно сделать так:

procedure TForm1.Button1Click(Sender: TObject);
begin
RichEdit1.Text:='длинный текст'+'продолжение текста';
end;

но хотелось бы сразу вставлять весь текст.
Может есть решение или какой-нибудь другой компонент?

Если я вас правильно понял, то вы хотите ограничить ввод текста в RichEdit? Ограничить можно так:

Procedure TForm1.Button1Click(Sender: TObject);
Begin
RichEdit1.MaxLength:=255;
End;

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

Procedure TForm1.RichEdit1Change(Sender: TObject);
Begin
If RichEdit1.SelStart=255 Then
Begin
RichEdit1.Text:='длинный текст'+'продолжение текста';
End;
End;

[Polotenchik]

Да нет, наоборот, чтобы можно было использовать текст более 255 символов. Такое реально? или обрезать придется в любом случаи?

[Terran]

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

Да нет, наоборот, чтобы можно было использовать текст более 255 символов. Такое реально? или обрезать придется в любом случаи?

Конечно можно! Устанавливайте свойство RichEdit1.ScrollBars:=SsBoth; и можете прокручивать текст.