![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Здравствуйте всем!!! У меня возникли некоторые вопросики по файлам...,я только начала изучать эту тему и прошу мне помочь...
![]() 1)как создать f1.txt на диске С:\Мои документы\? 2)Как переименовать этот файл(например, переименовать f1.txt на f2.txt)? 3)как установить атрибут "скрытый" на этот файл? и последнее 4)как этот фаил удалить? |
#2
|
||||
|
||||
![]() 1)
Код:
var f: TextFile; fName: String[80]; i: integer; begin fName := C:\My Documents\f1.txt'; AssignFile(f, fName); {$I-} Rewrite(f); for i:=0 to Form1.Memo1.Lines.Count do writeln(f, Form1.Memo1.Lines[i]); CloseFile(f); Код:
RenameFile('f1.txt', 'f2.txt'); Код:
SetFileAttributes('C:\My Documents\f1.txt', 38); Код:
DeleteFile('C:\My Documents\f1.txt'); Программирование - это искусство и наш смысл жизни. |
#3
|
|||
|
|||
![]() Спасибо огромное
![]() |