stringgrid als Textdatei speichern

[DeddyH]

Oder so:

Delphi-Quellcode:

procedure SaveStringGridToFile(sg: TStringGrid; const Filename: TFilename;
  aDelimiter: char = #255);
var
  aRow: integer;
  Total, Line: TStringlist;
begin
  Assert(Assigned(sg));
  Total := TStringlist.Create;
  try
    Line := TStringlist.Create;
    try
      for aRow := 0 to sg.RowCount - 1 do
        begin
          Line.Assign(sg.Rows[aRow]);
          Line.Delimiter := aDelimiter;
          Line.StrictDelimiter := true;
          Total.Add(Line.DelimitedText);
        end;
      Total.SaveToFile(Filename);
    finally
      Line.Free;
    end;
  finally
    Total.Free;
  end;
end;

procedure LoadStringGridFromFile(sg: TStringGrid; const Filename: TFilename;
  aDelimiter: char = #255);
var
  aRow: integer;
  Total, Line: TStringlist;
begin
  Assert(Assigned(sg));
  Total := TStringlist.Create;
  try
    Total.LoadFromFile(Filename);
    sg.RowCount := Total.Count;
    Line := TStringlist.Create;
    try
      for aRow := 0 to Total.Count - 1 do
        begin
          Line.Delimiter := aDelimiter;
          Line.StrictDelimiter := true;
          Line.DelimitedText := Total[aRow];
          sg.Rows[aRow].Assign(Line);
        end;
    finally
      Line.Free;
    end;
  finally
    Total.Free;
  end;
end;