1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
|
procedure TForm1.Load(const AFilename: String);
var
MS : TMemoryStream;
FS : TFileStream;
I : Integer;
begin
if FileExists(AFilename) then
begin
MS := TMemoryStream.Create;
try
{*
mais est-ce possible de faire :
for i:=0 to MyStringList.count-1 do
FS := TFileStream.Create(MyStringList[i], fmOpenRead or fmShareDenyNone); *}
FS := TFileStream.Create(AFilename, fmOpenRead or fmShareDenyNone);
try
MS.Size := FS.Size;
FS.Position := 0;
MS.Position := 0;
MS.CopyFrom(FS, 0);
finally
FS.Free;
end;
finally
MS.Free;
end;
end;
end;
end; |
Partager