stringgrid speichern

[Bummi]

nur als Vorschlag, in der Formatierung könntest Du es auch per Copy und Paste in Excel einfügen

Delphi-Quellcode:

Procedure SaveStringGrid(sg:TStringgrid;const fn:String);
const
 C_ZBr=#13#10;
 C_Tab=#9;
var
  Y,X:Integer;
  s:String;
  sl:TStringlist;
 Function GetDelim:String;
  begin
    if x < (sg.Rows[Y].Count - 1) then Result := C_Tab else Result := C_ZBr;
  end;
begin
  for Y := 0 to sg.RowCount -1 do
     begin
     For x := 0 to sg.Rows[Y].Count - 1 do s := s + sg.Rows[Y][X] + GetDelim;
     end;
  sl:=TStringlist.Create;
  try
    sl.Text := s;
    sl.SaveToFile(fn);
  finally
    sl.Free;
  end;
end;


Procedure LoadStringGrid(sg:TStringgrid;const fn:String);
const
 C_ZBr=#13#10;
 C_Tab=#9;
var
  sl:TStringList;
  y,x:Integer;
begin
  sl:=TStringlist.Create;

  try
    sl.LoadFromfile(fn);
    sg.RowCount := sl.Count;
    for y := 0 to sl.Count -1 do
        begin
           sg.Rows[y].Text := StringReplace(sl[y],C_Tab,C_ZBr,[rfReplaceAll]);
        end;
  finally
    sl.Free;
  end;
end;