TFileStream




今までほとんど使ったことがなかったけど、バイナリファイルの扱いに便利。

type
TBoard = class
private
cnt: Integer;
tile: array[0..BOARD_X - 1, 0..BOARD_Y - 1, 0..BOARD_Z - 1] of Integer;
public
...
procedure SaveToFile(FileName: string);
end;

...

procedure TBoard.SaveToFile(FileName: string);
var
fs: TFileStream;
begin
fs := TFileStream.Create(FileName, fmOpenWrite);
fs.WriteBuffer(tile, SizeOf(tile));
fs.WriteBuffer(cnt, SizeOf(cnt));
fs.Free;
end;

テキストファイルのほうはTStringListかな。



コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です