Пересохранение файла???

← →
Hitkliff © (2006-04-26 09:00) [0]

Допустим что у меня обучающая программа! В файлах этой проги лежит базаданных(кпримеру 1.mdb)! как мен мона сделать чтобы при нажатии какойнибудь кнопки на форме(либо в компоненте MainMenu) появлялось окно с просьбой сохранить Эту бД к себе на диск????

← →
Рамиль © (2006-04-26 09:16) [1]

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage("Пожалуйста, сохраните базу себе на диск!");
end;

← →
Hitkliff © (2006-04-26 09:50) [2]

Не всмысле сообщение! А диалоговое окно сохранения файла с выбором пути ?

← →
balepa © (2006-04-26 10:11) [3]

Dialogs -> SaveDialog

← →
Hitkliff © (2006-04-26 10:39) [4]

> Dialogs -> SaveDialog

а как сделать так чтобы именно определенный файл сохранялся?
напишите код плз

← →
balepa © (2006-04-26 10:43) [5]

Хитрый да ?
Что именно не получается ?
А что тебе мешает сделать самому, форму с кнопочкой и выбором каталога если у тебя файл имеет одно и тоже название ?

← →
Hitkliff © (2006-04-26 11:05) [6]

> Хитрый да ?
> Что именно не получается ?
> А что тебе мешает сделать самому, форму с кнопочкой и выбором
> каталога если у тебя файл имеет одно и тоже название ?

А если у меня куча таких файлов на разных формах? и что мне придется для каждого файла делать свою форму??
Мне бы узнать как написать диалоговое окно сохранения файла с выбором пути через SaveDialog?

← →
zorik © (2006-04-26 11:09) [7]

function SelectDirectory(const Caption: string; const Root: WideString; out Directory: string): Boolean; overload;
function SelectDirectory(var Directory: string; Options: TSelectDirOpts; HelpCtx: Longint): Boolean; overload;

← →
balepa © (2006-04-26 11:10) [8]

> Hitkliff © (26.04.06 11:05) [6]

В вопросе говорилось об одном файле.

← →
Ksenom © (2006-04-26 11:14) [9]

if Form1.SaveDialog1.Execute then begin {по желанию тут можно отрезать расширения, менять имя и т.д. Путь будет храниться в Form1.SaveDialog1.FileName} if Pos(".txt",Form1.SaveDialog1.FileName)=0 then Form1.SaveDialog1.FileName:=Form1.SaveDialog1.FileName+".txt"; {своя процедура сохранения, как душе угодно} end;

← →
Hitkliff © (2006-04-26 11:48) [10]

> Ksenom ©

спс попробую.
Люди плз пишите свои предложения!

← →
balepa © (2006-04-26 11:58) [11]

> Hitkliff © (26.04.06 11:48) [10]

Предлагаю "вооружиться" книжкой и начать изучать самостоятельно и только в затруднительных ситуациях (после трех дней "мучений") обращаться с вопросами на форум.

← →
Gydvin © (2006-04-26 13:33) [12]

> А если у меня куча таких файлов на разных формах?

Это как :() ?

> Это как :() ?

Это так:
У меня программа учебник!
В ней есть лабораторные работы!
А к каздой лабе несколько файлов! Вот как!

Ну тады бы так и говорил, А к каздой лабе пути к нескольким файлам!

> А одна база с несколькими таблицами не подходит ?

нет!
Там в разных лабах разные задания...

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

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

Конечно это может быть и очень хорошо может получиться! спасибо за совет! но мне весь материал дали и мне просто нужно сделать оболочку. А переделывать кучу БД мне не очень хочется

Пересохранение файла??? Найти похожие ветки