VPF::Помогите с сохранением - Форум программистов

Pavelbej

Дата 27.7.2005, 12:18 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 419
Регистрация: 5.7.2005

Репутация: нет
Всего: 6

прога работает с .txt и .html. Пишу текст, сохраняю как .txt. Пишу другой, сохраняю под тем же именем, но расширение ставлю .html и в результате собщение о том что файл существует. Как проверить расширение и сохранить файл под тем же именем. Заранее благодарен всем.

Код


procedure TForm1.SaveAs1Click(Sender: TObject);
begin
    if savedialog1.Execute then
        begin
          if FileExists(form1.Caption) then
            if form1.Caption=savedialog1.FileName then
               if MessageDlg(Format('The file already exists, to rewrite?', [form1.caption]),
          mtConfirmation, mbYesNoCancel, 0) <> idYes then Exit;
          memo1.Lines.SaveToFile(savedialog1.filename);
          form1.Caption:=savedialog1.FileName;
          memo1.Tag:=0;
        end;
end;

Это сообщение отредактировал(а) Girder - 27.7.2005, 12:19

Bes

Дата 27.7.2005, 12:34 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 806
Регистрация: 8.12.2004

Репутация: 5
Всего: 7

А у тебя в сэйвдиалоге небось стоит расширение по умолчанию?
кстати по коду зачем эта строчка?

Код


if form1.Caption=savedialog1.FileName then

может в этом проблема? может где-то раньше кэпшену как раз присваевается файлнэйм? например вот здесь дальше

Код


form1.Caption:=savedialog1.FileName;

Pavelbej

Дата 27.7.2005, 20:49 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 419
Регистрация: 5.7.2005

Репутация: нет
Всего: 6

Этот код я поставил потому что когда я созранял текстовые файлы под другим именем то все равно вылезал диалог о том что файл уже существует. Помогите сомсем запутался

imm

Дата 27.7.2005, 21:32 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

мщжно попробовать

Код


if SaveDialog1.Execute then
begin
  if FileExists(SaveDialog1.FileName) then
    if MessageDlg(Format('The file already exists, to rewrite?', [form1.caption]),
          mtConfirmation, mbYesNoCancel, 0) <> idYes then Exit; 

  memo1.Lines.SaveToFile(savedialog1.filename);
  form1.Caption:=savedialog1.FileName;
  memo1.Tag:=0;
end;

Вроде должно работать, вначале предлагаем выбрать файл, а потом проверяем его существование... Или я что-то не понял???

Pavelbej

Дата 28.7.2005, 01:10 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 419
Регистрация: 5.7.2005

Репутация: нет
Всего: 6

Не работает. Написал пару слов, сохранил как "omega.txt", добавил еще символ, сохранил как "omega.html"- говорит что файл уже существует, но вить разрешение другое. В чем дело?

Rrader

Дата 28.7.2005, 03:37 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
 saveDialog1.Options := SaveDialog1.Options + [ofOverWritePrompt];
 if savedialog1.Execute then
        begin
          memo1.Lines.SaveToFile(savedialog1.filename);
          form1.Caption:=savedialog1.FileName;
          memo1.Tag:=0;
        end;
end;

Это сообщение отредактировал(а) Rrader - 28.7.2005, 03:44

--------------------

Let's do this quickly!
Rest in peace, Vit!

Romikgy

Дата 28.7.2005, 08:39 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

А не легче при сохранении , взять savedialog1.filename отсчитать с конца 3 символа и заменить их на htm или html ????

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

mvdr

Дата 29.7.2005, 08:07 (ссылка)

(нет голосов)

Загрузка ...

физик

Профиль
Группа: Участник
Сообщений: 1349
Регистрация: 31.12.2004
Где: Волгоград, Россия

Репутация: 1
Всего: 42

Код


procedure TForm1.ButtonOpenClick(Sender: TObject);
var str:string;
    i:integer;
begin
if OpenDialog1.Execute then
begin
Memo1.Lines.Clear;
Memo1.Lines.LoadFromfile(OpenDialog1.FileName);
i:=Length(OpenDialog1.FileName);
while copy(Opendialog1.FileName,i,1)<>'\'do
begin
 str:=copy(Opendialog1.FileName,i,1)+str;
 i:=i-1;
end;
Form1.Caption:=str;
end;
end;

procedure TForm1.ButtonSaveClick(Sender: TObject);
begin
if savedialog1.Execute then
 begin
  Memo1.Lines.SaveToFile(SaveDialog1.FileName);
 end;
end;

Работает, проверено

--------------------

Появляюсь редко, но часто метко

Изображать идиота сложнее, чем изображать умного: полезнее и не каждому дано

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »