ブロックリードを変えるのに最適な方法を教えて下さい。 (ID:150792)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

TR = packed record
    D1: TDateTime;
    B1: Byte;
    I1: Integer;
    S1: array[0..11] of Char;  //String は使わない
  end;

①
var
    I: Integer;
    R: array[1..8] of TR;
    FileStream: TFileStream;
    Y,M,D: Word;
begin
    DecodeDate(Now,Y,M,D);
    for I:=1 to 8 do
    begin
      R[I].D1 := EncodeDate(Y,M,I);
      R[I].B1 := 10 + I;
      R[I].I1 := 12340 + I;
      StrPCopy(R[I].S1,'AAAAA' + IntToStr(I));
    end;

FileStream := TFileStream.Create('A.TXT',fmCreate);
    FileStream.Write(R,SizeOf(R));
    FileStream.Free;

②
var
    I: Integer;
    R: array[9..9] of TR;  //6 - 8
    FileStream: TFileStream;
    Y,M,D: Word;
begin
    DecodeDate(Now,Y,M,D);
    for I:=9 to 9 do
    begin
      R[I].D1 := EncodeDate(Y,M,I);
      R[I].B1 := 20 + I;
      R[I].I1 := 22340 + I;
      StrPCopy(R[I].S1,'CCCCCCC' + IntToStr(I));
    end;

FileStream := TFileStream.Create('A.TXT',fmOpenReadWrite);
    FIleStream.Position := FileStream.Size;
    FileStream.Write(R,SizeOf(R));
    FileStream.Free;

③
var
    I: Integer;
    FileStream: TFileStream;
    R: array[6..9] of TR;  //6 - 9
begin
    FileStream := TFileStream.Create('A.TXT',fmOpenRead);
    FIleStream.Position := SizeOf(TR) * 5;
    FileStream.Read(R,SizeOf(R));
    FileStream.Free;

for I:= Low(R) to High(R) do
    begin
      Memo1.Lines.Add(DateTimeToStr(R[I].D1));
      Memo1.Lines.Add(IntToStr(R[I].B1));
      Memo1.Lines.Add(IntToStr(R[I].I1));
      Memo1.Lines.Add(R[I].S1);
    end;

←解決時は質問者本人がここをチェックしてください。

戻る