Форум: "Основная";
Текущий архив: 2002.07.15;
Скачать: [xml.tar.bz2];

Вниз

Группировка в 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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.012 c