![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Сохранение файла [D7]
krem © (2008-08-01 12:58:00)Добрый .... Подскажите
OpenDialog1.Execute; //открытия окна для выбора файла
AssignFile(fl,OpenDialog1.FileName); // Связь файловой переменной с файлом
formatIsa; // Процедура чтения формата скоростного закона Isa
ReadFil(fl); // Продцедура чтетия файла
SaveDialog1.Execute; //открытия окна для выбора файла
AssignFile(fl,SaveDialog1.FileName); // Связь файловой переменной с файлом
пытаюсь открыть файл произвести переформатирование и сохранить
сохранить не получается
Все проходит смотрю а файл не сохранен
Denis__ (2008-08-01 19:25:00) [1]
> Могу посоветовать только 2 варианта: либо самому читать
> книги, либо нанять программиста.
При чём книги не по делфи, а по паскалю. :) А то научился диалоги кидать, а как с файлами работать не знает.
oldman (2008-08-01 16:36:00) [2]
> krem © (01.08.08 14:16) [3]
> после выполнения процедур данную переменную хочу записать
> в файл указав его в диалоге
Задай себе простой вопрос: Что храниться в этой переменной?
Anatoly Podgoretsky (2008-08-01 16:33:00) [3]
> Файл-то большой ?
Тогда нанять двух программистов.
oldman (2008-08-01 16:14:00) [4]Удалено модератором
Сергей М. (2008-08-01 14:47:00) [5]
> krem © (01.08.08 12:58)
Файл-то большой ?
Ega23 (2008-08-01 14:43:00) [6]
> для этого использую переменую f:TextFile;
> после выполнения процедур данную переменную хочу записать
> в файл указав его в диалоге
>
у-у-у-у....
Могу посоветовать только 2 варианта: либо самому читать книги, либо нанять программиста.
krem (2008-08-01 14:16:00) [7]задача чуть в другом
Я открываю файл редактирую и записываю в другой
для этого использую переменую f:TextFile;
после выполнения процедур данную переменную хочу записать в файл указав его в диалоге
Ega23 (2008-08-01 13:02:00) [8]
if not SaveDialog1.Execute then Exit;
AssignFile(F, SaveDialog1.FileName);
try
if not FileExists(SaveDialog1.FileName) then
Rewrite(F)
else
Reset(F); // Ну или append(F), не знаю что там у тебя
.... пишем в файл;
finally
CloseFile(F);
end;
Игорь Шевченко (2008-08-01 13:00:00) [9]тебе сюда:
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1217571111&n=18