Array speichern

[marabu]

Herzlich willkommen in der Delphi-PRAXiS, luggaz.

Dein "array of Char" kannst du als zusammenhängenden Speicherbereich betrachten und - wenn du willst - in einem Rutsch wegschreiben:

Delphi-Quellcode:

type
  TDemoForm = class(TForm)
    SaveButton: TButton;
    procedure SaveButtonClick(Sender: TObject);
  private
    Tiles: array [0..9, 0..9] of Char;
  end;

var
  DemoForm: TDemoForm;

implementation

{$R *.dfm}

procedure TDemoForm.SaveButtonClick(Sender: TObject);
var
  fn: TFileName;
begin
  fn := ChangeFileExt(ParamStr(0), '.cfg');
  with TFileStream.Create(fn, fmCreate) do
  begin
    WriteBuffer(Tiles, SizeOf(Tiles));
    Free;
  end;
end;

Freundliche Grüße vom marabu