Из StringGrid в Excel

[Multiman]

Доброго времени суток.

Нужно экспортировать данные в Excel.

{

WideString str;
TStringList *sl = new TStringList;
for(int i = 0 ; i<StringGrid1->RowCount ;++i)
{
for(int j = 0; j< StringGrid1->ColCount;++j)
str +=StringGrid1->Cells[j][i]+ "\t";
sl->Add(Trim(str));
str = "\n\r" ;
}
if (SaveDialog1->Execute())
sl->SaveToFile(SaveDialog1->FileName + ".xls");
delete sl;
}

Он работает, но данные экспортируются криво:



Должно быть вот так:



Подскажите как сделать нормально? Код в интернете нарыл.

Работаю в RAD Studio XE2.

[BDA]

Как видно, проблемы возникают с пустыми ячейками в начале строки.
Киньте весь проект, чтобы я мог поэкспериментировать.

[Multiman]

Разобрался.

WideString str;
TStringList *sl = new TStringList;
for(int i = 0 ; i<StringGrid1->RowCount ;++i)
{
for(int j = 0; j< StringGrid1->ColCount;++j)
str +=StringGrid1->Cells[j][i]+ "\t";
sl->Add(str);
str = "\r" ;
str = "";
}
if (SaveDialog1->Execute())
sl->SaveToFile(SaveDialog1->FileName + ".xls");
delete sl;
}

[BDA]

Эх, только сейчас увидел ваше сообщение.
До этого бился-бился и еле добился компиляции
Уберите лишнюю строчечку (не критично):

sl->Add(str);
str = "\r" ;
str = "";