Форум: "Начинающим";
Текущий архив: 2006.12.24;
Скачать: [xml.tar.bz2];
Вниз
парсинг текста Найти похожие ветки
← →
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 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.12.24;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.042 c
