stringgrid speichern

[DeddyH]

Das sollte auch funktionieren:

Delphi-Quellcode:

procedure SaveStringGrid(Grid: TStringGrid; Filename: TFilename);
var
  List, Zeile: TStringlist;
  i: integer;
begin
  Assert(Assigned(Grid));
  List := TStringlist.Create;
  try
    Zeile := TStringlist.Create;
    try
      for i := 0 to Grid.RowCount - 1 do
        begin
          Zeile.Assign(Grid.Rows[i]);
          Zeile.Delimiter := #255;
          List.Add(Zeile.DelimitedText);
        end;
    finally
      Zeile.Free;
    end;
    List.SaveToFile(Filename);
  finally
    List.Free;
  end;
end;

procedure LoadStringGrid(Grid: TStringGrid; Filename: TFilename);
var
  List, Zeile: TStringlist;
  i: integer;
begin
  Assert(Assigned(Grid));
  List := TStringlist.Create;
  try
    List.LoadFromFile(Filename);
    if Grid.RowCount < List.Count then
      Grid.RowCount := List.Count;
    Zeile := TStringlist.Create;
    Zeile.Delimiter := #255;
    Zeile.StrictDelimiter := true;
    try
      for i := 0 to List.Count - 1 do
        begin
          Zeile.DelimitedText := List[i];
          if Grid.ColCount < Zeile.Count then
            Grid.ColCount := Zeile.Count;
          Grid.Rows[i].Assign(Zeile);
        end;
    finally
      Zeile.Free;
    end;
  finally
    List.Free;
  end;
end;