spreadmind
27-01-2004, 14:27
In Delphi e portare tutto il suo contenuto in una variabile di tipo string... il tutto nel minor tempo possibile allego quello che ho fatto:
try
f := tfilestream.create('c:\Alex Britti Oggisono.kar', fmOpenRead);
ix := 0;
while ix < f.size do
begin
F.Position := ix;
f.Read(b, sizeof(b));
memo := memo + b;
inc(ix,255);
end;
finally
f.free;
end;
try
f := tfilestream.create('c:\Alex Britti Oggisono.kar', fmOpenRead);
ix := 0;
while ix < f.size do
begin
F.Position := ix;
f.Read(b, sizeof(b));
memo := memo + b;
inc(ix,255);
end;
finally
f.free;
end;