A ANiDelphi Unregistered / Unconfirmed GUEST, unregistred user! 2007-11-23 #2 procedure TForm1.Button1Click(Sender: TObject); var I: Integer; begin with TStringList.Create do try for I := 0 to StringGrid1.RowCount - 1 do Add(StringGrid1.Rows.CommaText); SaveToFile('C:/Test.txt'); finally Free; end; end;
procedure TForm1.Button1Click(Sender: TObject); var I: Integer; begin with TStringList.Create do try for I := 0 to StringGrid1.RowCount - 1 do Add(StringGrid1.Rows.CommaText); SaveToFile('C:/Test.txt'); finally Free; end; end;
