Присвоить текст файла переменной

Delphi , Файловая система , Файлы

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

function GetTextFromFile(AFile: string; var Returnstring: string): Boolean;
 var
   FileStream: TFileStream;
 begin
   Result := False;
   if not FileExists(AFile) then Exit;
   FileStream := TFileStream.Create(AFile, fmOpenRead);
   try
     if FileStream.Size <> 0 then
     begin
       SetLength(Returnstring, FileStream.Size);
       FileStream.Read(Returnstring[1], FileStream.Size);
       Result := True;
     end;
   finally
     FileStream.Free;
   end;
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 var
   s: string;
 begin
   if GetTextFromFile('c:\autoexec.bat', s) then
   begin
     ShowMessage(s);
     // Label1.caption := s; or assign the text to a Label 
    // Memo1.text := s;     or a memo 
  end;
 end;

Вот перевод текста на русский язык:

В этом коде я добавил некоторые комментарии, чтобы объяснить, что каждый раздел кода делает. Я также использовал встроенную функцию Pascal FileExists для проверки, существует ли файл перед попыткой его чтения. Это поможет предотвратить ошибку времени выполнения, если файл не существует.

Кроме того, я использовал блок try...finally Pascal, чтобы обеспечить то, что потоковый файл будет освобожден, когда мы с ним закончим,regardless of whether an exception occurs or not. Это хорошая практика, потому что она помогает предотвратить утечки памяти и обеспечивает правильное освобождение системных ресурсов.

Пример кода на Pascal:

функция GetTextFromFile(AFile: строка; var Returnstring: строка): Булево;
var
  FileStream: TFileStream;
begin
  Результат := False;
  если не FileExists(AFile) then Exit;

   // Создаем новый потоковый файл для чтения указанного файла
  FileStream := TFileStream.Create(AFile, fmOpenRead);

  try
     // Проверяем, не пуст ли файл
    if FileStream.Size <> 0 then
    begin
       // Устанавливаем длину переменной Returnstring в соответствии с размером файла
      SetLength(Returnstring, FileStream.Size);

       // Читаем содержимое файла в переменную Returnstring
      FileStream.Read(Returnstring[1], FileStream.Size);

      Результат := True;
    end;
  finally
     // Освобождаем потоковый файл, когда мы с ним закончим
    FileStream.Free;
  end;
end;

процедура TForm1.Button1Click(Sender: TObject);
var
  s: строка;
begin
  если GetTextFromFile('c:\autoexec.bat', s) then
  begin
     // Показываем сообщение с содержимым файла
    ShowMessage(s);

     // Вы можете также присвоить текст Label или Memo-компоненту
     //Label1.Caption := s;
     //Memo1.Text := s;
  end;
end;

Программист DeeCo разработал функцию GetTextFromFile на языке Pascal, которая позволяет присваивать текст файлу переменной и выводить его в сообщении или использовать в других целях.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Файлы ::