[Himikat]

Не работает этот цикл)
Есть список с именами (Memo) при запуске цикла хочу, чтобы создавалась запись с заполненным столбцом из списка, но получается почему то не циклически: создается одна запись при i=количеству строк в Мемо.

for i:=0 to Memo1.Lines.Count-1 do
 DataModule1.DataSourcePO.DataSet.Insert;
 EditPO.DBEdit1.Text:='Íåòáóóê';
 EditPO.DBEdit2.Text:=Memo1.Lines.Strings[i];

я не понимаю почему так происходит ведь он должен создавать столько строк, сколько их в списке, а не только одну.

[Aristarh Dark]

begin...end????

[EvilRussian]

Код:

for i:=0 to Memo1.Lines.Count-1 do
 begin
  DataModule1.DataSourcePO.DataSet.Insert;
  EditPO.DBEdit1.Text:='Íåòáóóê';
  EditPO.DBEdit2.Text:=Memo1.Lines.Strings[i]
 end;

Харе тупить, юзайте учебник.

[Himikat]

Спасибо!!
Вот глупец я,такю ошибку допустить