Wie speichere ich einen String am besten?

[Alter Mann]

Hi

Eine Möglichkeit die Daten in ein prpitäres Format zu speichern:

Delphi-Quellcode:

procedure SaveToFile(const FileName : String)
var
  Stream : TStream;
begin
  Stream := TFileStream.Create(FileName, fmCreate);
  try
    SaveToStream(Stream);
  finally
    Stream.Free;
  end;
end;

procedure LoadFromFile(const FileName : String)
var
  Stream : TStream;
begin
  Stream := TFileStream.Create(FileName, fmOpen);
  try
    LoadFromStream(Stream);
  finally
    Stream.Free;
  end;
end;

procedure SaveToStream(Stream : TStream);
var
  Zeile,
  Splate,
  I       : Integer;
begin
  for I := 1 to 81 do
  begin
    Spalte := (I-1) mod 9;
    Zeile  := (I-1) div 9;
    Stream.WriteBuffer(StrToInt(StringGrid.Cells[Spalte, Zeile]), SizeOf(Integer));
  end;
end;

procedure LoadFromStream(Stream : TStream);
var
  Zeile,
  Splate,
  I       : Integer;
begin
  for Zeile := 0 to  8 do
   for Spalte := 0 to 8 do 
   begin
    Stream.ReadBuffer(I), SizeOf(Integer));
   StringGrid.Cells[Spalte, Zeile] := IntToStr(I);
   end;
end;

Nicht getestet!!!

Zitat:

Ich möchte aber, dass er mir im OpenDialog sämtliche *.sud-Dateien anzeigt

Ist Multiselect in den Dialogeigenschaften aktiv?

Damit der Explorer eine '*.sud' als Sudoko-Datei idenifiziert must du die Dateiendung registrieren,
siehe hier.

Viele Grüße