|
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail | |||||||
| Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
||||
 |
|
|
Опции темы | Поиск в этой теме |
05.09.2007, 14:17
|
#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; Файл пустой... почему? Не пойму... 
|
|
|
|
05.09.2007, 14:21
|
#2 |
|
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
У меня работатет нормально если dir:string;
I'm learning to live...
|
|
|
|
|
05.09.2007, 14:28
|
#3 |
|
Александр
Форумчанин
Регистрация: 15.08.2007
Сообщений: 112
|
переставил Dir на string (в uses filectrl) ничего не изменилось...
|
|
|
|
|
05.09.2007, 14:59
|
#4 |
|
Участник клуба
Регистрация: 28.03.2007
Сообщений: 1,814
|
замени строку на assignfile(f,dir+'Directory.txt');
|
|
|
|
|
05.09.2007, 15:04
|
#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 |
