Скачать: CL | DM;

парсинг текста   Найти похожие ветки 

← →
bagos   (2006-12-07 11:08) [0]

привет народ!
нету результата:
var
i:integer;
base:tstringlist;
begin
base:=tstringlist.Create;
base.Text:=memo1.Text;
i:=1;
while i>=base.count do
memo1.Lines.Add(base.Strings[i]);
inc(i,3);
end;

парсится текст и через каждые три строчки вытаскивается текст и добавляется в edit1

что не так сделано?

---

← →
Dmitrij_K   (2006-12-07 11:12) [1]


while i<base.count do
begin
memo1.Lines.Add(base[i]);
inc(i,3);
end;

Учи синтаксис!

---

← →
Palladin ©   (2006-12-07 11:12) [2]

не так паскаль изучен

---

← →
Elen ©   (2006-12-07 11:12) [3]

> добавляется в edit1

Не вижу эдита.

---

← →
Anatoly Podgoretsky ©   (2006-12-07 19:49) [4]

> bagos  (07.12.2006 11:08:00)  [0]

Многое сделано неправильно, правильнее весь код выкинуть.

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.046 c