@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; |
@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.