Как загрузить и сохранить содержимое StringGrid?

Question

Первая часть кода работает нормально, а вторая (закомментированная) - нет.Он перезаписывает мой файл 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;

Что я делаю не так?Кроме того, почему строковая сетка выдает listindex за пределами границ, когда я пытаюсь загрузить в него содержимое из пустого текстового файла?Если я сохраню пустую строку в этом файле, позже, хотя в ней ничего нет, он не будет жаловаться?Странно ...

Так я загружаю А1 и А2 в сетку строк.

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;

Answer 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;

надеюсь, что поможет

Answer 2

Откуда вы знаете, что это перезаписывает A1.txt? Вы сохраняете одно и то же содержимое в обоих случаях.