Hola estoy haciendo un codigo basandome en un manual de lectura de todo tipo de archivos y estoy tratando de optimizar el codigo porque me han quedado muchas lineas de codigo , el codigo es este :
Código Delphi
[-]function read_file(archivo: String): AnsiString;
var
F: File;
contenido: AnsiString;
limite: Integer;
leyendo: Integer;
tipo: Byte;
begin
Result := '';
tipo := FileMode;
FileMode := 0;
AssignFile(F, archivo);
Reset(F, 1);
if (IOResult = 0) then
begin
limite := Filelimite(F);
while (limite > 1024) do
begin
SetLength(contenido, 1024);
BlockRead(F, contenido[1], 1024, leyendo);
Result := Result + contenido;
Dec(limite, leyendo);
end;
SetLength(contenido, limite);
BlockRead(F, contenido[1], limite);
Result := Result + contenido;
CloseFile(F);
end;
FileMode := tipo;
end;
El tema es que no quiero usar classes porque ya hice un codigo que funciona perfecto pero como es una aplicacion consola hace que el programa pese mas de lo habitual :
Código Delphi
[-]
uses Classes;
function read_file(const FileName: String): AnsiString;
var
Stream: TFileStream;
begin
Stream := TFileStream.Create(FileName, fmOpenRead);
try
SetLength(Result, Stream.Size);
Stream.ReadBuffer(Pointer(Result)^, Stream.Size);
finally
Stream.Free;
end;
end;
Ya reduci las lineas de codigo del codigo inicial lo mas que puede , ¿ Hay alguna forma de reducir mas el codigo inicial sin tener que usar Classes ?