Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.15;
Скачать: CL | DM;

Вниз

Группировка в Memo1   Найти похожие ветки 

 
Кузьма   (2002-06-27 22:09) [0]

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


 
rhf ©   (2002-06-27 22:19) [1]

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

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);


 
McSimm ©   (2002-06-28 12:25) [2]

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



Страницы: 1 вся ветка

Текущий архив: 2002.07.15;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.009 c
6-47639
Sergey_001
2002-05-03 14:52
2002.07.15
У меня к вам два вопроса.


6-47650
DeaDMan_77
2002-05-07 01:05
2002.07.15
Мастера, подскажите как отключить доступ к Интернету


6-47624
Konsul
2002-04-28 14:20
2002.07.15
Звук через локальную сеть


3-47162
Dark Bird
2002-06-19 03:12
2002.07.15
Модификация TTable


4-47912
Girl
2002-05-11 17:43
2002.07.15
Вывод иконки на чужое окно