Как открыть файл в delphi 7?
Как открыть файл в delphi 7?
2 ответа
от
Programmer ,
2 года назад
@aaron_armstrong Приветствую!
Для открытия файла можно использовать WinAPI
Пример
1 2 3 4 5 6 7 |
uses ShellAPI ... var FileName: string; begin FileName:= 'Полный путь к файлу'; ShellExecute(Handle, 'open', PChar(FileName), nil, nil, SW_SHOWNORMAL); end; |
от
vladimir ,
год назад
@aaron_armstrong
Для открытия файла в Delphi 7 можно использовать компонент TFileStream, который представляет собой поток байтов в файле.
Пример открытия файла для чтения:
1 2 3 4 5 6 7 8 9 10 11 12 13 |
var
fs: TFileStream;
s: AnsiString;
begin
fs := TFileStream.Create('file.txt', fmOpenRead);
try
SetLength(s, fs.Size);
fs.Read(s[1], fs.Size);
finally
fs.Free;
end;
// Обработка информации из файла
end;
|
где 'file.txt' - название файла, fmOpenRead - флаг для открытия файла в режиме чтения.
Пример открытия файла для записи:
1 2 3 4 5 6 7 8 9 10 11 12 |
var
fs: TFileStream;
s: AnsiString;
begin
s := 'Данные для записи в файл';
fs := TFileStream.Create('file.txt', fmCreate);
try
fs.Write(s[1], Length(s));
finally
fs.Free;
end;
end;
|
где 'file.txt' - название файла, fmCreate - флаг для открытия файла в режиме записи.
Не забудьте вызывать метод Free для освобождения ресурсов после использования объекта TFileStream.
15