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