|
|
Регистрация Восстановить пароль |
Повторная активизация 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 |