парсинг текста

← →
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

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

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

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

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