Показать сообщение отдельно
  #2  
Старый 21.02.2011, 18:02
Аватар для Yurk@
Yurk@ Yurk@ вне форума
Специалист
 
Регистрация: 07.09.2007
Адрес: Украина, г. Днепропетровск
Сообщения: 892
Версия Delphi: 7 + ОгнеПтица
Репутация: выкл
По умолчанию

ну так и бери 2 компонента Table. Table1 у тебя будет держать новую таблицу, а Table2 будет поочередным источником 3-х твоих таблиц по которым ты будешь бегать в цыкле и писать записи в Table1
примерно так:
Код:
Table1.Close;
Table1.TableName:='New_table.db';
Table1.Open;
for i:=0 to 2 do
  begin
  Table2.Close;
  Table2.TableName:='Memo1.Lines[i]';
  Table2.Open;
  while not Table2.EOF do
    begin
    Table1.Insert;
    Table1.Fields[0].Value:=Table2.Fields[0].Value;
    Table1.Fields[1].Value:=Table2.Fields[1].Value;
    Table1.Fields[2].Value:=Table2.Fields[2].Value;
    Table1.Post;
    Table2.Next;
    end;
  Table1.Insert
  Table2.Post;
end;
__________________
Поживу - увижу, Доживу - узнаю, Выживу - учту.
[P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
Ответить с цитированием