[an error occurred while processing this directive]
|
Вот текст
procedure TForm1.Button1Click(Sender: TObject);
var
fh: textfile;
begin
assignfile(fh,'D:\Test.txt');
rewrite(fh);
write(fh,'Это тестовый файл');
closefile(fh);
end;
При работающей программе с файлом делал что угодно, вплоть до удаления.
Ответы
Перейти к списку ответов
|||
Конференция
|||
Архив
|||
Главная страница
|||
Содержание