4 respuestas en este tema

[sir.dev.a.lot]

[TRUCO DELPHI] Asignar un Archivo a una Variable de tipo String.

 

Descripcion:

 

Cree un nuevo proyecto de Delphi, en Delphi 7, File -> New -> Application.

 

Adicione un TMemo y un TButton, el TMemo alinealo hacia la Izquierda... Align:= alLeft

 

Ahora adicione este codigo / funcion luego de la Seccion de Implementation.

delphi

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;

Ahora en el Evento OnClick del TButton, adicione este codigo.

delphi

//asi debe de quedar.
procedure TForm1.Button1Click(Sender: TObject);
 
//de aqui para abajo
var
  s: string;
begin
  if GetTextFromFile('c:\autoexec.bat', s) then
  begin
    Memo1.text := s;     
  end;
//hasta aqui
 
end;

Saludos!

Archivos adjuntos

•  Delphi7.png   114,72KB   0 descargas

[escafandra]

¿Y no es mucho más fácil, rápido y directo esto?

delphi

Memo.Lines.LoadFromFile('c:\autoexec.bat');

Saludos.

[sir.dev.a.lot]

Hola, @Escafandra...

 

Ahi el Titulo del Truco deberia de ser entonces, Como cargar un Archivo en un TMemo.

 

El TMemo solo se usa para reflejar que el archivo se ha cargado... La Operacion radiaca en la Variable S donde se guarda el contenido del Archivo cargado.

 

Puede hacer un ShowMessage(s);

 

Ademas en su caso le faltaria esto

{

Memo.Lines.LoadFromFile('c:\autoexec.bat');

 

S:= Memo1.Text;

}

 

Aunque yo estoy seguro que usted se conoce esto de mas, la explicacion no es para usted, sino para los demas que no conocerian la diferencia.

 

Saludos!

[escafandra]

delphi

function GetTextFromFile(AFile: string): string;
var
  List: TStringList;
begin
  List:= TStringList.Create;
  List.LoadFromFile(AFile);
  Result:= List.Text;
  List.Free;
end;

 
 
Saludos.

[sir.dev.a.lot]

Ah, Ves ... una manera mas Corta... Gracias @Escafandra.

 

Saludos!