У меня вот какой вопрос!!! Есть таблица (Paradox), и ее нужно как-то сохранить с помощью SaveDialog и Table?????

Цитата

Есть таблица (Paradox), и ее нужно как-то сохранить с помощью SaveDialog и Table?????

Если нужно сохранить таблицу внутрь базы, то достаточно Table... если во внешний файл, то можно через SaveDialog.... А чем объясняется такой странный выбор компонентов?

а в чём собственно проблема?
читай таблицу Eof до конца и затем а затем записывай поля через Writeln, естественно всё это в цикле... как считал одну строку делай Table.Next и усё...

Цитата(Dron84 @ 22.12.2005, 17:39)

в чём собственно проблема? читай таблицу Eof до конца и затем а затем записывай поля через Writeln, естественно всё это в цикле... как считал одну строку делай Table.Next и усё...

Dron84, как я понимаю человек хочет именно Paradox`овскую таблицу сохранить, т е файл *.db с его структурой....
Добавлено @ 23:43
shaft666, структура таблицы заранее известна?

SPrograMMer
а разницы нет...
в общем вот накатал кодик...
этот код вписать в батн сохранения...

Код

var    s: string; begin   if SaveDialog.Execute then     begin       s := SaveDialog.FileName;         if pos('.txt',s) = 0 then           s := s + '.txt';         if FileExists(s) then           begin             if MessageBox(0,'Такой файл уже существует. Перезаписать?','', MB_YESNO or MB_ICONQUESTION) = IDYES then             Write(s);           end         else           Write(s);     end;

а это отдельная процедура для чтения таблицы

Код

procedure TViewPrice.Write(const s: string); var    f: TextFile; begin        AssignFile(f,s);        ReWrite(f);        data.TOrgPrices.First;        while not data.TOrgPrices.Eof do          begin           writeln (f, data.TOrgPrices.FieldByName('Goods').AsString + ' - ' +                       data.TOrgPrices.FieldByName('Price').AsString + ' - ' +                       data.TOrgPrices.FieldByName('Other').AsString);           data.TOrgPrices.Next          end;        data.TOrgPrices.First;        CloseFile(f); end;

естественно Write объявить в pivate....
проверял, работает нормально....
удачи...

Dron84, у тебя получается ТИПИЗИРОВАННЫЙ (ну можно даже сказать паскалевский) файл, а я говорил, насчет Paradox`овского, т е что бы этот файл можно было бы просмотреть в любой программе типа DataBase Desktop.... т е действительно файл базы данных...
Вот поэтому я и спрашивал у shaft666`а... Такое можно сотворить, коли знаешь структуру таблицы...

Добавлено @ 16:13
Вот пример:

Код

Var   NewTable:TTable; begin NewTable:=TTable.Create(Self); With NewTable Do Begin  Active:=False;  DatabaseName:='TestDB';  TableType:=ttParadox;  TableName:='Test.db';   // здесь конкретное имя файла, можно прикрутить Dialog  with FieldDefs Do Begin    With AddFieldDef do Begin      Name:='ID';      DataType:=ftAutoInc;      Required:=True    End;    With AddFieldDef do Begin      Name:='Name';      DataType:=ftString;      Size:=50    End;  End;  with IndexDefs Do    With AddIndexDef Do Begin      Name:='';      Fields:='ID';      Options:=[ixPrimary]    End;  CreateTable; // непосредственно создаем файл End;

SPrograMMer
это для парадокса и есть, просто я это уже для созданной таблицы а не для того чтобы создавать её программно...
вопрос был не том чтобы создать таблицу программно, а как сохраниь данные из таблици....

Цитата(Dron84 @ 25.12.2005, 18:35)

вопрос был не том чтобы создать таблицу программно, а как сохраниь данные из таблици

вот-вот. ты так понимаешь вопрос, а я его понимаю... в общем в примере я и реализовал то как я его понимаю....
давай больше спорить не будем, а дождемся shaft666`а ( ) может он сам и скажет чего он хотел-то на самом деле....

1) Я вот чего хотел: Жмешь на кнопку Сохранить таблицу как, вылазит SaveDialog в нем указываем имя файла и и выбираем расшерение(*.db). Таблица должна сохраняться полностью, со всеми полями, индексами и записями (перечеслять каждое поле будет очень некрасиво (их около 300 ) ). Может как нибудь через копирование???

2) И ребят подскажите как можно создавать новую таблицу со старой структурой (Нажимаешь кнопочку создать новую БД, опять же вылазит SaveDialog, показываем куда сохранить, имя и расширение(db).)....

3) И вот еще вопрос. Открываю таблицу (проиндексированную) жму Cортировать вот с таким кодом:

Код

Table1.IndexName := 'indFam';

ошибка невыскакивает, добавляю новую запись, опять жму Сортировать и выскакивает вот такого типа ошибка:

Цитата

'Index is Out of date index: indFam'

Извеняюсь за оффтоп! Выше код не для C++, а для Delphi!!!