VPF::Результат вычисления не добавляется в файл

ruslandlion

Дата 29.11.2012, 15:21 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

Репутация: нет
Всего: нет

Пишу калькулятор, необходимо чтобы результат вычисления попадал в файл Output.txt . Создал этот файл в папке с программой написал код чтобы результат вычисления попадал в файл Output.txt, программа компилируется но не добавяляется. вот мой код

Код


procedure TForm1.BitBtn13Click(Sender: TObject);
var
f: TextFile; // файл
foroutput: string; // перееменная значение которое надо отправить в файл Output.txt
begin
... //// пропустил кусок кода где пописываються обработчик события на кнопку "=" 

AssignFile (f,'D:\trig\trig\Output.txt');
Rewrite(f); // îоткрыть для перезаписи
// запись в файл
foroutput:= form1.st1.Caption; // вместо Edit коммпонент statictext
writeln(f,foroutput);
CloseFile(f);

В чём может быть ошибка?

Illusion Dolphin

Дата 29.11.2012, 15:32 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

Репутация: 5
Всего: 63

У меня код:

Код


var
f: TextFile; // файл
foroutput: string; // перееменная значение которое надо отправить в файл Output.txt
begin
AssignFile (f,'C:\Output.txt');
Rewrite(f); // îоткрыть для перезаписи
// запись в файл
foroutput:= 'test'; // вместо Edit коммпонент statictext
writeln(f,foroutput);
CloseFile(f);

успешно создал файл и записал в него. Во время выполнения ошибка какая-нибудь возникает? Может путь к файлу указан неверно (нет такой директории)?

--------------------

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

ruslandlion

Дата 29.11.2012, 15:35 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

Репутация: нет
Всего: нет

вообще ошибки нету никакой, но не добавляет, может из-за того что я систему переустановил, только Delphi поставил и не перезагрузил или Rewrite это перезапись а в файле значения нету, может из-за этого, не знаю сейчас попробую

Добавлено через 6 минут
Не помогло, путь правильный

Добавлено через 9 минут и 12 секунд
Всё исравил, блин, не ту кнопку прописал просто, перепутал, Illusion Dolphin , спасибо. Админ удали пожалуйста эту тему

Данкинг

Дата 29.11.2012, 16:45 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

А до "writeln(f,foroutput);" вообще доходит? Код-то вроде как нормальный.

Добавлено через 1 минуту и 4 секунды
А, уже вопрос решён. Я поста от 16:35 не прочитал. smile

--------------------

There's nothing left but silent epitaphs.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »