Главная страница
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.008 c
14-47706
DanDik
2002-06-17 21:20
2002.07.15
Ишу помошника


1-47293
jen_bond
2002-06-30 01:14
2002.07.15
Изменение размеров


14-47701
Windeus
2002-06-18 00:43
2002.07.15
Warning и...


1-47276
ivlex
2002-06-29 09:35
2002.07.15
Об автозапуске программы


4-47877
ArhAngeL2
2002-05-14 13:12
2002.07.15
Помогите!!!! Увеличить форму др. программы(Горю!!!)