Волшебный цикл

[govorun1]

Имеются 2 таблицы:
ADOTable1
ADOTable6

Нужно скопировать все строки из полей AAA, BBB, CCC таблицы ADOTable1 в таблицу ADOTable6.

procedure TForm16.Button2Click(Sender: TObject);
var
    i:integer;
begin
      Datamodule3.ADOTable1.First;
      Datamodule3.ADOTable6.Insert;
      for i:=0 to Datamodule3.ADOTable1.RecordCount-1 do
      begin
      Datamodule3.ADOTable6.FieldByName('AAA').AsString:=Datamodule3.ADOTable1.FieldByName('AAA').AsString;
      Datamodule3.ADOTable6.FieldByName('BBB').AsFloat:=Datamodule3.ADOTable1.FieldByName('BBB').AsFloat;
      Datamodule3.ADOTable6.FieldByName('CCC').AsDateTime:=Datamodule3.ADOTable1.FieldByName('CCC').AsDateTime;
      Datamodule3.ADOTable6.Next;
      end;
//    Datamodule3.ADOTable6.Post;
    end;

Не заработало... Скопировало только первую строку. Внес изменения...

procedure TForm16.Button2Click(Sender: TObject);
var
    i:integer;
begin
      Datamodule3.ADOTable1.First;
//      Datamodule3.ADOTable6.Insert;
      for i:=0 to Datamodule3.ADOTable1.RecordCount-1 do
      begin
      Datamodule3.ADOTable6.Insert;
      Datamodule3.ADOTable6.FieldByName('AAA').AsString:=Datamodule3.ADOTable1.FieldByName('AAA').AsString;
      Datamodule3.ADOTable6.FieldByName('BBB').AsFloat:=Datamodule3.ADOTable1.FieldByName('BBB').AsFloat;
      Datamodule3.ADOTable6.FieldByName('CCC').AsDateTime:=Datamodule3.ADOTable1.FieldByName('CCC').AsDateTime;
      Datamodule3.ADOTable6.Next;
      end;
//    Datamodule3.ADOTable6.Post;
    end;

Не заработало... Скопировало только первую строку но три раза (в ADOTable1 всего 3 записи). Внес изменения...

procedure TForm16.Button2Click(Sender: TObject);
var
    i:integer;
begin
      Datamodule3.ADOTable1.First;
//      Datamodule3.ADOTable6.Insert;
      for i:=0 to Datamodule3.ADOTable1.RecordCount-1 do
      begin
      Datamodule3.ADOTable6.Insert;
      Datamodule3.ADOTable6.FieldByName('AAA').AsString:=Datamodule3.ADOTable1.FieldByName('AAA').AsString;
      Datamodule3.ADOTable6.FieldByName('BBB').AsFloat:=Datamodule3.ADOTable1.FieldByName('BBB').AsFloat;
      Datamodule3.ADOTable6.FieldByName('CCC').AsDateTime:=Datamodule3.ADOTable1.FieldByName('CCC').AsDateTime;
      Datamodule3.ADOTable6.Next;
      end;
//    Datamodule3.ADOTable6.Post;
    end;

Не заработало... Ругнулось что ADOTable6 не Insert

Вопрос, что не так?

[eval]

а все не так, а какую книгу уже прочитали? синию или зеленую?

[0parol0lorap0]

Можешь выложить исходник ?

[Stilet]

procedure TForm16.Button2Click(Sender: TObject);
var
    i:integer;
begin
      Datamodule3.ADOTable1.First;
//      Datamodule3.ADOTable6.Insert;
      while not Datamodule3.ADOTable1.eof do
      begin
      Datamodule3.ADOTable6.Insert;
      Datamodule3.ADOTable6.FieldByName('AAA').AsString:=Datamodule3.ADOTable1.FieldByName('AAA').AsString;
      Datamodule3.ADOTable6.FieldByName('BBB').AsFloat:=Datamodule3.ADOTable1.FieldByName('BBB').AsFloat;
      Datamodule3.ADOTable6.FieldByName('CCC').AsDateTime:=Datamodule3.ADOTable1.FieldByName('CCC').AsDateTime;
      Datamodule3.ADOTable1.Next;
      end;
//    Datamodule3.ADOTable6.Post;
    end;

Увидел ошибку, где я исправление отметил?

[govorun1]

Сообщение от eval

а все не так, а какую книгу уже прочитали? синию или зеленую?

Библию Фленова

[govorun1]

Сообщение от 0parol0lorap0

Можешь выложить исходник ?

Похоже уже нет необходимости, но все равно спасибо.

[govorun1]

Сообщение от Stilet

procedure TForm16.Button2Click(Sender: TObject);
var
    i:integer;
begin
      Datamodule3.ADOTable1.First;
//      Datamodule3.ADOTable6.Insert;
      while not Datamodule3.ADOTable1.eof do
      begin
      Datamodule3.ADOTable6.Insert;
      Datamodule3.ADOTable6.FieldByName('AAA').AsString:=Datamodule3.ADOTable1.FieldByName('AAA').AsString;
      Datamodule3.ADOTable6.FieldByName('BBB').AsFloat:=Datamodule3.ADOTable1.FieldByName('BBB').AsFloat;
      Datamodule3.ADOTable6.FieldByName('CCC').AsDateTime:=Datamodule3.ADOTable1.FieldByName('CCC').AsDateTime;
      Datamodule3.ADOTable1.Next;
      end;
//    Datamodule3.ADOTable6.Post;
    end;

Увидел ошибку, где я исправление отметил?

Увидел... Спасибо... Кстати, в Библии Фленова рекоменуется именно FOR а не While. Попробую, отпишусь...
Нужно еще в цикл три условия поставить... Сначало попробую сам...

[eval]

Библию Фленова

нельзя ее неокрепшим читать, а окрепшие и не будут..

[govorun1]

Сообщение от eval

нельзя ее неокрепшим читать, а окрепшие и не будут..

В конце августа 2013 Передо мной встала задача сотворить небольшую базу с оболочкой для согласования нескольких удаленных друг от друга рабочих мест.
Что такое програмирование я знаю на уровне 1 года "обучения" бэйсику по школьной программе.
Я к пенсии ближе чем к школе. Поэтому взял книжку какая попалась на глаза, чтоб к пенсии успеть.

[Stilet]

в Библии Фленова рекоменуется

Вот почему я ее не читал )
Вот почему у меня все на мази

Поэтому взял книжку какая попалась на глаза, чтоб к пенсии успеть.

Фленов не тот автор, с которого стоит начинать. Он скорее наравне с Хайнлайном идет. Хотя на ночь не рекомендуется все равно.