Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> не сохраняется файл! 
:(
    Опции темы
Darkmaster
Дата 29.1.2006, 22:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
вот код:
Код

procedure TForm1.Button7Click(Sender: TObject);
begin
DeleteFile('воскресенье.txt');
if OpenPictureDialog1.Execute then
begin
Memo7.Text:=OpenPictureDialog1.FileName;
Memo7.Lines.SaveToFile('воскресенье.txt');
end;

Так вот файла воскресенье.txt нет! Что делать?
--------------------
GeekTV - интернет-телевидение для гиков
PM MAIL   Вверх
SPrograMMer
Дата 29.1.2006, 22:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Спамер :)
**


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

Репутация: 2
Всего: 6
Цитата(Darkmaster @ 29.1.2006, 22:06 Найти цитируемый пост)

воскресенье.txt нет

smile smile Есть!!! только он в активном на данный момент каталоге находиться...
Или.. smile его может на самом деле не быть если у тебя NTFS и в папке отсутствует разрешнеие на создание файлов...


Других предложений пока нет....


--------------------
животное = зверь
законченный гентушник
PM MAIL ICQ Jabber   Вверх
Darkmaster
Дата 29.1.2006, 22:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
дело в том что все в других программах с этим в норме....
--------------------
GeekTV - интернет-телевидение для гиков
PM MAIL   Вверх
Pakshin A. S.
Дата 29.1.2006, 23:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 21
Всего: 61
сделай так:
Код

procedure TForm1.Button7Click(Sender: TObject);
begin
 DeleteFile('воскресенье.txt');
 if OpenPictureDialog1.Execute then
  begin
   Memo7.Text:=OpenPictureDialog1.FileName;
   Memo7.Lines.SaveToFile('воскресенье.txt');
   if FileExists('воскресенье.txt')
    then
     ShowMessage('Файл существует, воспользуйся поиском...');
  end;
end;


У меня всегда выходило существование файла, причем он был в папке, из которой мы брали файл в Диалоге открытия.
Добавлено @ 23:49
Файловая система, стати, NTFS... Все в порядке... Поищи в той папке, которая выбиралась в Диалоге открытия файла...
PM   Вверх
Darkmaster
Дата 30.1.2006, 15:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
файл действительно сохраняется в папке которая была открыта в диалоге. а как сделать так чтобы файл сохранялся в папке с программой(причем на любом компьютере)? Очень надо!!!
--------------------
GeekTV - интернет-телевидение для гиков
PM MAIL   Вверх
Rennigth
Дата 30.1.2006, 15:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76
полный путь писать:
Код

ExctractFilePath(ParamStr(0)) + 'воскресенье.txt'



--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0430 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.