| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Группировка в Memo1

Кузьма ©   (2002-06-27 22:09:00) 

Нужно файл file.txt с содержанием:
$aaaa$aa$aaaaa$aa$aaa$aaaaaa$aa
сгруппировать в Memo1 таким образом:
$aaaa
$aa
$aaaaa
$aa$aaa
$aaaaaa
$aa

---

McSimm   (2002-06-28 12:25:00) [1]

S := "$aaaa$aa$aaaaa$aa$aaa$aaaaaa$aa";
Memo1.Text := StringReplace(S, "a$", "a"#13#10"$", [rfReplaceAll]);

---

rhf   (2002-06-27 22:19:00) [2]

попробуй........

x:=1;
repeat
dx:=pos("$",copy(memo1.text,x+1,length(memo1.text)));
if dx=0 then dx:=length(memo1.text)-x;
memo2.lines.add(copy(memo1.text,x,dx));
x:=x+dx;
until x=length(memo1.text);


---

Наверх