【Delphi初心者】今から始めるDelphi Part01

var
  UArrayNo: array[0..99] of Integer;
procedure TForm1.Button1Click(Sender: TObject);
var
  fs: TFileStream;
  i: integer;
begin
  fs := TFileStream.Create(ExtractFilePath(Application.ExeName)+'FileNo.dat',fmCreate or fmShareExclusive);
  try
    for i := 0 to 99 do begin
      UArrayNo[i] := Random(100);
      fs.Write(UArrayNo[i],SizeOf(Integer));
    end;
  finally
    fs.Free;
  end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
  fs: TFileStream;
  i: integer;
begin
  fs := TFileStream.Create(ExtractFilePath(Application.ExeName)+'FileNo.dat',fmOpenRead or fmShareExclusive);
  try
    for i := 0 to 99 do begin
      fs.Read(UArrayNo[i],SizeOf(Integer));
      Memo2.Lines.Add(IntToStr(UArrayNo[i]));
    end;
  finally
    fs.Free;
end;
end;