Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 28.04.2007, 05:23   #1
Alex_Ku
Новичок
Джуниор
 
Регистрация: 27.04.2007
Сообщений: 1
По умолчанию Ошибка при записи в файл txt

Помогите, почему при записи строчки из Edit'a в файл txt возникает ошибка InOutError, типо неверное имя файла? Причем в Edit записывается путь другого файла, к примеру *.bmp, при помощи OpenDialog! Причем если этот *.bmp файл лежит в папке где сама программа, то всё отлично!

procedure TForm.SpeedButtonClick(Sender: TObject);
// запись в Edit пути
begin
if Form.OpenDialog1.Execute then
Form.Edit2.Text := OpenDialog1.FileName
else
Exit;
end;

procedure TForm.SaveClick(Sender: TObject);
begin
FIO := Form.Edit1.Text;
Foto := Form.Edit2.Text;
a := 'Data\' + FIO;
begin
AssignFile(FL2, 'Data\Data');
AssignFile(FL1, a);
// создание файла с ФИО и пути фотографии
ReWrite(FL1);
Writeln(FL1, FIO);
Writeln(FL1, Foto);
// добавление в другой файл ФИО
Append(FL2);
WriteLn(FL2, FIO);
CloseFile(FL1);
CloseFile(FL2);
end;
end;
Alex_Ku вне форума Ответить с цитированием
Старый 28.04.2007, 10:39   #2
rpy3uH
добрый няша
СуперМодератор
 
Аватар для rpy3uH
 
Регистрация: 29.10.2006
Сообщений: 4,808
По умолчанию

мистика...
но у тебя что-то непонятно с именами файлов
вместо Data\Data сделай хотя бы Data\Data.txt или Data\Data.inf
потом вместо
a := 'Data\' + FIO
надо хотя бы
a := 'Data\' + FIO+'.txt';
rpy3uH вне форума Ответить с цитированием
Старый 28.04.2007, 11:15   #3
Shuraken
Форумчанин
 
Аватар для Shuraken
 
Регистрация: 16.04.2007
Сообщений: 298
По умолчанию

А переменные FL1, FL2 какого типа? File, TextFile?
Не надо ничего усложнять. Все достаточно тривиально.
Shuraken вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Pascal]типизированный файл+записи Fuaran8989 Помощь студентам 4 30.11.2008 14:01
Как записи в СтрингГрид сохранять в ДБ файл Alex_76 Помощь студентам 2 17.06.2008 14:55
Pascal.Записи и файл!!! W_P Помощь студентам 2 20.05.2008 21:01
Паскал файл изменение записи sancho-spb Помощь студентам 1 29.04.2008 12:27
Экспорт записи в *.dbf файл Galgi БД в Delphi 2 20.02.2008 07:02


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS