Как отделить строчки в memo1 компоненте?

@seklys · Регистрация: 20.01.2008

Студворк — интернет-сервис помощи студентам

Pomogite, kak mne sdelat:
Form1.Memo1.Text:='lalalalalalalalalalal allalalalalalalallalalallaal'

nado tak:
Form1.Memo1.Text := ' Lalalalala
lalalalala
lalalalala'
ctobi ja neperestupal linij polia.
spasibo

@xGrey · 30.03.2008, 15:00

При Memo.WordWrap:=true; произйдет автоматический перенос текста
с формированием соотв. кол-ва Memo.lines : TStrings относительно
ширины Memo.

Правда, непонятно, что Вы имели ввиду под
'не переступать линий поля'.......

@seklys · 30.03.2008, 22:29 **[ТС]**

Nu ja imel vvidu, cto ja vvozu text v memo(eto na otdelnoj forme)Etot text meniajetsa tolko mnoj. T.jest. v codeeditor. A polia eto ja imel vvidu neperestupat polej v editore koda. Nu jesli ja dopustim hociu otpechatat kod.
form1.memo1.text:= ' tut idiot text i on dlinij tut --> jest pole kototoje jesli perestupis to ne smozes otpecatat, poetomu ja hociu perenesti text na sledujusiuju stroku. No ja neznaju kak eto zdelat.

@xGrey · 31.03.2008, 12:29

Можно попробовать сделать так:

var SL : TStringList;
str : string;
i : integer;
begin
// сбор информации; Memo1 - источник данных
for i:=0 to Memo1.Lines.Count-1 do str:=str+Memo1.Lines[i];

SL:=TStringList.create;
SetSL(SL,str,Нужное кол-во символов в строке);

for i:=0 to SL.Count-1 do
begin
// В SL хранятся строки, длинной=AmountChr
// Обращение к строке, хранящейся в SL- SL[i]
end;
SL.free;
end;

//SL - будет содержать строки, длинна каждой
// из которых=AmountChr
//StringLine - строка-источник данных для SL
procedure SetSL(var SL: TStringList; StringLine: string;
AmountChr: Cardinal);
var Str : string;
begin
while Length(StringLine)>=AmountChr do
begin
str:=copy(StringLine,1,AmountChr);
SL.Add(str);
StringLine:=copy(StringLine,AmountChr+1, Length(StringLine));
end;
if Length(StringLine)<>0
then SL.Add(StringLine);
end;

Новые блоги и статьи Все статьи Все блоги /
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .

@seklys 0 / 0 / 0 Регистрация: 20.01.2008 Сообщений: 26

	Как отделить строчки в memo1 компоненте? 30.03.2008, 12:48. Показов 946. Ответов 3 Метки нет (Все метки) Pomogite, kak mne sdelat: Form1.Memo1.Text:='lalalalalalalalalalal allalalalalalalallalalallaal' nado tak: Form1.Memo1.Text := ' Lalalalala lalalalala lalalalala' ctobi ja neperestupal linij polia. spasibo 0

@xGrey 0 / 0 / 1 Регистрация: 23.10.2007 Сообщений: 68
	30.03.2008, 15:00
	При Memo.WordWrap:=true; произйдет автоматический перенос текста с формированием соотв. кол-ва Memo.lines : TStrings относительно ширины Memo. Правда, непонятно, что Вы имели ввиду под 'не переступать линий поля'....... 0

@seklys 0 / 0 / 0 Регистрация: 20.01.2008 Сообщений: 26
	30.03.2008, 22:29 [ТС]
	Nu ja imel vvidu, cto ja vvozu text v memo(eto na otdelnoj forme)Etot text meniajetsa tolko mnoj. T.jest. v codeeditor. A polia eto ja imel vvidu neperestupat polej v editore koda. Nu jesli ja dopustim hociu otpechatat kod. form1.memo1.text:= ' tut idiot text i on dlinij tut --> jest pole kototoje jesli perestupis to ne smozes otpecatat, poetomu ja hociu perenesti text na sledujusiuju stroku. No ja neznaju kak eto zdelat. 0

@xGrey 0 / 0 / 1 Регистрация: 23.10.2007 Сообщений: 68
	31.03.2008, 12:29
	Можно попробовать сделать так: var SL : TStringList; str : string; i : integer; begin // сбор информации; Memo1 - источник данных for i:=0 to Memo1.Lines.Count-1 do str:=str+Memo1.Lines[i]; SL:=TStringList.create; SetSL(SL,str,Нужное кол-во символов в строке); for i:=0 to SL.Count-1 do begin // В SL хранятся строки, длинной=AmountChr // Обращение к строке, хранящейся в SL- SL[i] end; SL.free; end; //SL - будет содержать строки, длинна каждой // из которых=AmountChr //StringLine - строка-источник данных для SL procedure SetSL(var SL: TStringList; StringLine: string; AmountChr: Cardinal); var Str : string; begin while Length(StringLine)>=AmountChr do begin str:=copy(StringLine,1,AmountChr); SL.Add(str); StringLine:=copy(StringLine,AmountChr+1, Length(StringLine)); end; if Length(StringLine)<>0 then SL.Add(StringLine); end; 0