| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
парсинг текста [D6, XP]
bagos © (2006-12-07 11:08:00)привет народ!
нету результата:
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
что не так сделано?
Anatoly Podgoretsky (2006-12-07 19:49:00) [1]> bagos (07.12.2006 11:08:00) [0]
Многое сделано неправильно, правильнее весь код выкинуть.
Dmitrij_K (2006-12-07 11:12:00) [2]
while i<base.count do
begin
memo1.Lines.Add(base[i]);
inc(i,3);
end;
Учи синтаксис!
Palladin (2006-12-07 11:12:00) [3]не так паскаль изучен
Elen (2006-12-07 11:12:00) [4]
> добавляется в edit1
Не вижу эдита.
| |
