Показать сообщение отдельно
  #21  
Старый 10.04.2009, 16:37
Nyctos Kasignete Nyctos Kasignete вне форума
Активный
 
Регистрация: 29.03.2009
Сообщения: 300
Репутация: 94
По умолчанию

NewWorld, вы имели в виду: поставить в качестве символа-разделителя табуляцию вместо запятой??? =)
Дело в том, что свойство CommaText в некотором смысле производное от "более общего" свойства — DelimitedText, который может использовать любой символ в качестве разделителя.
Код:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  i, LastRow: Integer;
  SList: TStringList;
begin
  SList := TStringList.Create;
  LastRow := StringGrid1.RowCount - 1;
  try
    for i := 0 to LastRow do
    begin
      StringGrid1.Rows[i].Delimiter := #9;
      SList.Add(StringGrid1.Rows[i].DelimitedText);
    end;
    SList.SaveToFile('C:\Directory\File.tsv');
  finally
    SList.Free;
  end;
end;
Ответить с цитированием