Delphi 7: проблема с Savedialog

Тема в разделе "Delphi - FAQ", создана пользователем -, 26 апр 2010.

  1. Гость

    Добрый день! :love:
    У меня программа АРМ "Бухгалтера". По ней я должна создать верхнее меню со всяческими полезными функциями. Это я всё сделала, но у меня не работает SaveDialog, особенно пункт "Сохранить", работает через раз, либо выдаёт ошибку "Система не может найти путь" либо вообще ничего не делает. :KillMe: Вот архив, если посмотрите - буду невероятно благодарна... :(
     

    Вложения:

    • ___________.rar
      Размер файла:
      263,5 КБ
      Просмотров:
      17
  2. etc

    etc Гость

    Огласите весь список пожалуйста.
     
  3. Гость

    Поменяю цифру 13 на цифру 14 :KillMe:
     
  4. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    Шас посморим...
     
  5. xKlonx

    xKlonx Lotus team
    Lotus team

    Регистрация:
    10 сен 2009
    Сообщения:
    412
    Симпатии:
    0
    Первокурсница
    Так вы же не вызываете диалог на пункт меню "сохранить",если сначала нажать "сохранить как" появляется диалог и вы указываете путь куда сохранить то тогда всё корректно работает.Сделайте проверку если пути нет вызываете диалог и задаёте имя файла и сохранить
     
  6. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    Код (Text):
    procedure TfrmMain.N32Click(Sender: TObject);
    begin
    Memo.Lines.SaveToFile(dlgSave.FileName);
    end;
    Интересно, сделайте переменную в которой будете хранить имя файла(с полным путем).

    напишите это
    Код (Text):
    procedure TfrmMain.FormCreate(Sender: TObject);//событие формы onCreate
    begin
    FileName:='';
    end;

    procedure TfrmMain.N32Click(Sender: TObject);//кнопка сохранить
    begin
    If FileName<>'' then Memo.Lines.SaveToFile(FileName)
    else
    if dlgSave.Execute
    then
    begin
    Memo.Lines.SaveToFile(dlgSave.FileName);
    Filename:=dlgSave.FileName;
    end;
    end;

    procedure TfrmMain.N32Click(Sender: TObject);//кнопка сохранить как
    begin
    if dlgSave.Execute then
    begin
    Memo.Lines.SaveToFile(dlgSave.FileName);
    Filename:=dlgSave.FileName;
    end;
    end;

    procedure TfrmMain.N41Click(Sender: TObject);//кнопка открыть
    begin
    if dlgOpen.Execute then
    begin
    Memo.Lines.LoadFromFile(dlgOpen.FileName);
    Filename:=dlgOpen.FileName;
    end;
    end;
    Добавлено: А значок прикольный. :KillMe:
     
  7. Гость

    ВСЕМ СПАСИБО! :KillMe:
     
Загрузка...
Похожие Темы - Delphi проблема Savedialog
  1. agapoviv
    Ответов:
    1
    Просмотров:
    2.958
  2. cybert
    Ответов:
    0
    Просмотров:
    94
  3. Shouldercannon
    Ответов:
    0
    Просмотров:
    156
  4. antares
    Ответов:
    0
    Просмотров:
    439
  5. Луиза
    Ответов:
    0
    Просмотров:
    295

Поделиться этой страницей