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

名前

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

本文

参考にして自分のプログラムを作り始めました。
Varの宣言を各procudureで行っていたら、読み込みがうまくいかなったです。
上で一括宣言したらうまく動くようになりました。
すごく長い間悩んでいました。今日できるようになりました。
問題は、追加ができません。
また、読み込みも全部読み込むのならできるんですが、最近3日分を読み込むとかができません。
FIleStream.Positionをどう変えても最初の3日間が読み込まれます。
どこが悪いのか、よろしくお願いします。

procedure TForm1.Button2Click(Sender: TObject);
begin
    for I:=5 to 5 do
    begin
      DD.Day := a[I].day;
      DD.InC := a[I].InC;;
      DD.Eat := a[I].Eat;
      DD.Oth := a[I].Oth;;
      DD.Sum := a[I].Sum;
      DD.Bal := a[I].Bal;;
    end;

FileStream := TFileStream.Create('c:\Study\家計簿\KakeiBo2023.TXT',fmOpenReadWrite);
    FIleStream.Position := FileStream.Size;
    FileStream.Write(DD,SizeOf(Dtype));
    FileStream.Free;

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
    setlength(R,3);
    FileStream := TFileStream.Create('c:\Study\家計簿\KakeiBo2023.TXT',fmOpenRead);
    FIleStream.Position := Sizeof(Dtype)*4;
    FileStream.Read(R,SizeOf(R));
    FileStream.Free;

for I:= 0 to 2 do
      Memo1.Lines.Add(IntToStr(R[I].Day)+','+IntToStr(R[I].InC)+','+
          IntToStr(R[I].Eat)+','+IntToStr(R[I].Oth)+','+IntToStr(R[I].Sum)+','+
          IntToStr(R[I].Bal));

end;

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

戻る