экспорт данных из stringGrid в excel Опции

[Sanya01078]

есть функция

function saveasexcelfile(stringgrid: tstringgrid; filename: string): boolean;
const
xlwbatworksheet = -4167;
var
row, col: integer;
gridprevfile: string;
xlapp, sheet: olevariant;
begin
result := false;
xlapp := createoleobject('excel.application');
try
xlapp.visible := false;
xlapp.workbooks.add(xlwbatworksheet);
sheet := xlapp.workbooks[1].worksheets[1];
sheet.name := 'my sheet name';
for col := 0 to stringgrid.colcount - 1 do
for row := 0 to stringgrid.rowcount - 1 do
sheet.cells[row + 1, col + 1] := stringgrid.cells[col, row];
try
xlapp.workbooks[1].saveas(filename);
result := true;
except
// error ?
end;
finally
if not varisempty(xlapp) then
begin
xlapp.displayalerts := false;
xlapp.quit;
xlapp := unassigned;
sheet := unassigned;
end;
end;
end;


procedure tform1.button1click(sender: tobject);
begin
if saveasexcelfile(stringgrid1, 'c:\myexcelfile.xls') then
showmessage('stringgrid saved!');
end; 

Проблема в том что она сохраняет числа без запятой то есть у меня в stringGride число 6,33 а оно сохраняет 6 33 Подскажите где что-то не так!!

[volvo]

И правда когда поставил разделитель дробной части точку все стало на свои места и сохраняет корректно!!

Это до тебя только сейчас дошло, то, о чем тебе написали в посте №4? Или ты принципиально читаешь только определенно чьи-то ответы, а всех остальных - игнорируешь, а, умник? Или ты что, считаешь, что я для себя выкладывал скриншот, КАК ДОЛЖНЫ вводиться числа в стринггрид (в том же, четвертом, посте)? Больше вот делать мне нечего, решил сделать скриншот, и выложить, да?

А на счет сколько должно быть указано столбцов и строк не подкскажете?

Иди на MSDN.microsoft.com и читай, как определить количество задействованных строк/столбцов на листе Excel... За тебя это делать никому на фиг не надо. А то опять напишешь тебе, ты опять проигнорируешь, будешь упираться что "не работает", пока кто-нибудь еще не придет и не повторит...