Fórum Como passar um arquivo de texto para uma variavel do tipo string ? #586078

procedure TForm1.Button1Click(Sender: TObject);
var
  varString, varArquivo: string;
  StringList: TStringList;
begin
  varArquivo := 'C:\\arquivo.txt';
  StringList := TStringList.Create;

  try
    StringList.LoadFromFile(varArquivo);
    
    // Joga arquivo carregado na StringList na sua variável;
    varString := StringList.Text;

    // Proceder agora como quiser com sua variável;
  finally
    FreeAndNil(StringList);
  end;  
end;