delphi读写文件

delphi¶ÁдÎļþ
2006-8-23

procedure TForm1.btnwriteClick(Sender: TObject);
var
Stream : TStream;
var
Size : Integer;
S : array of byte;
var
i : integer;
begin
Stream := TFileStream.Create('e:\abc.dat', fmCreate);
try
try
Size := 1024;
SetLength(S, Size);
for i := 0 to Size do
S[i] := i;

Stream.Write(Pointer(S)^, Size);
finally
S := nil;
end;
finally
Stream.Free;
end;

end;