Как открыть файл в delphi 7?

Пользователь

от aaron_armstrong , в категории: Другие , 3 года назад

Как открыть файл в delphi 7?

Facebook Vk Ok Twitter LinkedIn Telegram Whatsapp

2 ответа

P

Пользователь

от Programmer , 3 года назад

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