掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ブロックリードを変えるのに最適な方法を教えて下さい。 (ID:150817)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
//読み込み procedure TForm2.Button1Click(Sender: TObject); var I: Integer; D: array of TData; FileStream: TFileStream; begin SetLength(D,10); FileStream := TFileStream.Create('FN.TXT',fmOpenRead); for I:=0 to 9 do begin FileStream.Read(D[I],SizeOf(TDATA)); end; FileStream.Free; for I:=0 to 9 do begin Memo1.Lines.Add(IntToStr(I) + '='+IntToStr(D[I].X) + ' ' + IntToStr(D[I].Y)); end; end; //書き込み procedure TForm2.Button2Click(Sender: TObject); var I: Integer; D: array of TData; FileStream: TFileStream; begin SetLength(D,10); for I:=0 to 9 do begin D[I].X := 32 + I; D[I].Y := 65 + I; end; FileStream := TFileStream.Create('FN.TXT',fmCreate); for I:=0 to 9 do begin FileStream.Write(D[I],SizeOf(TDATA)); end; FileStream.Free; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.