如何加载和保存 StringGrid 内容？答案

【问题标题】：How to load and save StringGrid content?如何加载和保存 StringGrid 内容？
【发布时间】：2011-07-29 01:37:03
【问题描述】：

代码的第一部分可以正常工作，而第二部分（已注释）则不行。它会覆盖我的 A1 文件，尽管它应该写入 A2。

procedure TForm1.AdvGlowButton12Click(Sender: TObject);
var
  i,j: Integer;
  Seznam: TStrings;
  ApplicationPath: string;
begin
  if (cxRadiogroup3.ItemIndex and cxRadiogroup2.ItemIndex) = 0 then begin
    ApplicationPath:= ExtractFileDir(Application.ExeName);
    Seznam:= TStringList.Create;
    try
      for i:=0 to advStringGrid2.ColCount-1 do
        Seznam.AddStrings(advStringGrid2.Cols [i]);
      for i:=0 to advStringGrid2.rowCount-1 do
        Seznam.AddStrings(advStringGrid2.rows [j]);
      Seznam.SaveToFile(ApplicationPath+'\A1.txt');
    finally
      seznam.free;
    end;
  end ;
  //if cxRadiogroup3.ItemIndex = 1 and cxRadiogroup2.ItemIndex = 0 then begin
  //  ApplicationPath:= ExtractFileDir(Application.ExeName);
  //  Seznam:= TStringList.Create;
  //  try
  //    for i:=0 to advStringGrid2.ColCount-1 do
  //      Seznam.AddStrings(advStringGrid2.Cols [i]);
  //    for i:=0 to advStringGrid2.rowCount-1 do
  //      Seznam.AddStrings(advStringGrid2.rows [j]);
  //    Seznam.SaveToFile(ApplicationPath+'\A2.txt');
  //  finally
  //    seznam.free;
  //  end ;
  //end
end;

我做错了什么？另外，当我尝试从空文本文件中加载内容时，为什么 stringgrid 会超出 listindex 的范围？如果我稍后将空字符串网格保存到该文件中，尽管文件中没有任何内容，但它不会抱怨吗？奇怪……

这就是我将 A1 和 A2 加载到字符串网格中的方式。

procedure TForm1.cxRadioGroup2Click(Sender: TObject);
Var
  I,j,k: Integer;
  Seznam: TStrings;
  ApplicationPath: string;
begin
  case cxradioGroup2.ItemIndex of
    0: begin
         if cxradioGroup3.ItemIndex = 0 then begin
           Seznam:= TStringList.Create;
           AdvStringgrid2.ClearAll;
           try
             Seznam.LoadFromFile('A1.txt');
             k:= 0;
             for i:=0 to advStringGrid2.ColCount-1 do
               for j:=0 to advStringGrid2.RowCount-1 do begin
                 advstringGrid2.Cells [i,j]:= Seznam.Strings [k];
                 Inc(k);
               end;
           finally
             seznam.free;
           end;
         end;
         if cxradioGroup3.ItemIndex = 1 then begin
           Seznam:= TStringList.Create;
           AdvStringgrid2.ClearAll;
           try
             Seznam.LoadFromFile('A2.txt');
             k:=0;
             for i:=0 to advStringGrid2.ColCount-1 do
               for j:=0 to advStringGrid2.RowCount-1 do begin
                 advstringGrid2.Cells [i,j]:= Seznam.Strings [k];
                 Inc(k);
               end;
           finally
             seznam.free;
           end;
         end;
       end;
  end;
end;

【问题讨论】：

在有人告诉你为什么它报告索引错误之前，你需要显示你的加载代码。
以上代码已更新...
ClearAll() 是否删除行，或者只是将它们设置为空字符串？如果它删除了行，那么您需要将 ColCount 和 RowCount 存储到您的文件中，以便您可以在加载单元格数据之前恢复原始值。无论如何，这可能不是一个坏主意。
保存数据时，您存储的是 Rows[] 属性中的值，但在读取值时使用的是 Cells[] 属性。保存值时应该使用 Cells[] 属性。
究竟如何？不知道我理解你的正确....（累）...

标签： delphi delphi-7 delphi-2010 delphi-xe

【解决方案1】：

这是来自SwissDelphiCenter 的旧提示，可以帮助您

// Save StringGrid1 to 'c:\temp.txt':
procedure TForm1.Button1Click(Sender: TObject);
begin
  SaveStringGrid(StringGrid1, 'c:\temp.txt');
end;

// Load StringGrid1 from 'c:\temp.txt':
procedure TForm1.Button2Click(Sender: TObject);
begin
  LoadStringGrid(StringGrid1, 'c:\temp.txt');
end;

// Save a TStringGrid to a file

procedure SaveStringGrid(StringGrid: TStringGrid; const FileName: TFileName);
var
  f:    TextFile;
  i, k: Integer;
begin
  AssignFile(f, FileName);
  Rewrite(f);
  with StringGrid do
  begin
    // Write number of Columns/Rows
    Writeln(f, ColCount);
    Writeln(f, RowCount);
    // loop through cells
    for i := 0 to ColCount - 1 do
      for k := 0 to RowCount - 1 do
        Writeln(F, Cells[i, k]);
  end;
  CloseFile(F);
end;

// Load a TStringGrid from a file

procedure LoadStringGrid(StringGrid: TStringGrid; const FileName: TFileName);
var
  f:          TextFile;
  iTmp, i, k: Integer;
  strTemp:    String;
begin
  AssignFile(f, FileName);
  Reset(f);
  with StringGrid do
  begin
    // Get number of columns
    Readln(f, iTmp);
    ColCount := iTmp;
    // Get number of rows
    Readln(f, iTmp);
    RowCount := iTmp;
    // loop through cells & fill in values
    for i := 0 to ColCount - 1 do
      for k := 0 to RowCount - 1 do
      begin
        Readln(f, strTemp);
        Cells[i, k] := strTemp;
      end;
  end;
  CloseFile(f);
end;

我正在尝试理解您的代码，并尽我所能重写他。（未经测试）

procedure TForm1.AdvGlowButton12Click(Sender: TObject);
var
  i, j: Integer;
  Seznam: TStrings;
  ApplicationPath: string;
  fileName: string;
  line: string;
begin
  if (cxRadiogroup2.ItemIndex = 0) then begin
    if (cxRadiogroup3.ItemIndex = 0) then
      fileName:= 'A1.txt'
    else
      fileName:= 'A2.txt'

    ApplicationPath:= ExtractFileDir(Application.ExeName);
    Seznam:= TStringList.Create;
    try
      for k:=0 to advStringGrid2.RowCount-1 do begin
        line:= '';
        for i:=0 to advStringGrid2.ColCount-1 do
          line = line + '|' + advStringGrid2.Cells[i, k];
        Seznam.AddStrings(line);
      end;
      Seznam.SaveToFile(ApplicationPath + '\' + fileName);
    finally
      seznam.Free;
    end;
  end;
end;

procedure TForm1.cxRadioGroup2Click(Sender: TObject);
var
  splitList: TStringList;
  i, j: Integer;
  Seznam: TStrings;
  ApplicationPath: string;
  fileName: string;
  line: string;
  sepIndex: integer;
begin
  if (cxRadiogroup2.ItemIndex = 0) then begin
    if (cxRadiogroup3.ItemIndex = 0) then
      fileName:= 'A1.txt'
    else
      fileName:= 'A2.txt'

    AdvStringgrid2.ClearAll; // don't know what this does

    ApplicationPath:= ExtractFileDir(Application.ExeName);
    Seznam:= TStringList.Create;
    try
      Seznam.LoadFromFile(fileName);
      advstringGrid2.RowCount:= Seznam.Count;
      splitList:= TStringList.Create;
      for i:=0 to Seznam.Count-1 do begin
        line:= Seznam.Strings [i];
        Split('|', line, splitList);
        advStringGrid2.ColCount:= Max(advStringGrid2.ColCount, splitList.Count);
        for k:=0 to splitList.Count-1 do
          advStringGrid2.Cells[i, k]:= splitList[k];
      end; 
    finally
      splitList.Free;
      seznam.Free;
    end;
  end;
end;

procedure Split (const Delimiter: Char; Input: string; const Strings: TStrings);
begin
   Assert(Assigned(Strings));
   Strings.Clear;
   Strings.Delimiter:= Delimiter;
   Strings.DelimitedText:= Input;
end;

希望对你有帮助

【讨论】：

在我看来，从 SwissDelphiCenter 引用包装函数只是对摘录中所述的实际问题How to load and save StringGrid content? 的可能答案。不过，恐怕还有其他“隐藏”的问题。

【解决方案2】：

你怎么知道它正在覆盖 A1.txt？在这两种情况下，您保存的内容完全相同。

【讨论】：

“您在两种情况下都保存完全相同的内容”是什么意思？？？我认为这种情况正在发生，但不知道出了什么问题......
我在加载新数据之前清除了网格的内容。不知何故，数据似乎仍然存在并被覆盖...文件具有不同的内容...
您显示、注释和所有的代码是将具有完全相同的列和行的完全相同的 Grid 保存到两个单独的文件名中。所以即使代码第二次覆盖了 A1.txt，你怎么知道呢？新数据将与旧数据相同。我建议您从sysinternals.com 获取文件监视器并观察实际情况。

【解决方案3】：

成立并适应我的需求。然后分享:-)

procedure LoadStringGrid(const AFileName: TFileName; AGrid: TStringGrid);
var
    slRows: TStringList;
    i: integer;
begin
    slRows:= TStringList.Create;
  try
    slRows.LoadFromFile(AFileName);
    for i:= 0 to slRows.Count -1 do
      AGrid.Rows[i +1].CommaText:= slRows[i];
    finally
        slRows.Free;
    end;
end;//  LoadStringGrid

procedure SaveStringGrid(const AFileName: TFileName; AGrid: TStringGrid);
var
    slRows: TStringList;
    i: integer;
begin
    slRows:= TStringList.Create;
  try
    for i:= 1 to AGrid.RowCount -1 do
        slRows.Add(AGrid.Rows[i].CommaText);
    slRows.SaveToFile(AFileName);
    finally
        slRows.Free;
    end;
end;//  SaveStringGrid

【讨论】：