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

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

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.

//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!

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

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

Saludos.

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!

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

Saludos!