![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Александр
Форумчанин
Регистрация: 15.08.2007
Сообщений: 112
|
![]()
procedure TForm1.N1Click(Sender: TObject);
var dir:widestring; f:textfile; begin if not selectdirectory('Выберите директорию:','',Dir) then exit else Label1.Caption:=Dir; assignfile(f,'Directory'); rewrite(f); writeln(f,Dir); closefile(f); end; Файл пустой... почему? Не пойму... ![]() |
![]() |
![]() |
![]() |
#2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
![]()
У меня работатет нормально если dir:string;
I'm learning to live...
|
![]() |
![]() |
![]() |
#3 |
Александр
Форумчанин
Регистрация: 15.08.2007
Сообщений: 112
|
![]()
переставил Dir на string (в uses filectrl) ничего не изменилось...
![]() |
![]() |
![]() |
![]() |
#4 |
Участник клуба
Регистрация: 28.03.2007
Сообщений: 1,814
|
![]()
замени строку на assignfile(f,dir+'Directory.txt');
|
![]() |
![]() |
![]() |
#5 |
Александр
Форумчанин
Регистрация: 15.08.2007
Сообщений: 112
|
![]()
Я заменил 'directory' на 'Directory.txt' . Заработало!!! Спасибо, добрый человек!!!
![]() |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Сохранение в текстовый файл | Askat | Общие вопросы Delphi | 11 | 26.02.2008 14:47 |
Сохранение массива в файл | Artem | Общие вопросы Delphi | 10 | 11.12.2007 20:00 |
Сохранение в *.Bmp - файл | Рустам | Мультимедиа в Delphi | 14 | 28.11.2007 21:32 |
Сохранение ListView в файл | Scorpeon | Общие вопросы Delphi | 6 | 12.06.2007 15:51 |
Сохранение в файл *.*С | Noor | Общие вопросы C/C++ | 6 | 08.01.2007 22:44 |