Модератор: Модераторы
Gampos писал(а):На выходе в ксв получается (кракозябры).
Gampos писал(а): который посоветовали Вы - StringGrid1.SaveToFile('C:\Lazarus\grid1.csv').
Код: Выделить всё
for i:=0 to StringGrid.RowCount-1 do
for j:=0 to StringGrid.ColCount-1 do
StringGrid.Cells[i,j]:=Utf8ToAnsi( StringGrid.Cells[i,j]);
//не исключено, что придется ввести переменную WideString и действовать через нее
var
s:WideString;
begin
for i ....
for j .... do begin
s:=StringGrid.Cells[i,j];
StringGrid.Cells[i,j]:=Utf8ToAnsi(s);
end;
end;
Gampos писал(а):Ваш код я попробовал, но я не могу понять как вместо 'текст' вставить данные из своего стринг грида...в данный момент у меня с помощью Вашего кода по нажатию кнопки открывается книга екселя с заголовком текст....а вот как мне сделать так чтобы отобразились там данные из моего стринг грида до меня не доходят..Подскажите, пожалуйста..Буду благодарен..
Код: Выделить всё
StringGrid.Cells[col,row] - это содержимое ячейки [колонка - строка], тип String, нумерация строк и колонок начинается с 0 !!!!!
Sheet.Cells(row,col) - это ячейка Excel - [строка - колонка], тип String, нумерация строк и колонок начинается с 1 !!!!!
// делаешь двойной цикл
var
s:WideString;
i,j:Integer;
begin
for i:=0 to StringGrid.RowCount-1 do
for j:=0 to StringGrid.ColCount-1 do begin
s:=StringGrid.Cells[j,i];
Sheet.Cells(i+1,j+1):=Utf8ToAnsi(s);
end;
end;
Gampos писал(а):я видимо совсем тупой
Код: Выделить всё
var str,s:WideString;
exl:OleVariant;
i,j:integer;
begin
exl:=CreateOleObject('Excel.Application');//создали книгу
WorkBook:=exl.Application.WorkBooks.Add;
Sheet:=exl.WorkBooks[1].Sheets[1];
//перетаскиваем данные
for i:=0 to StringGrid1.RowCount-1 do
for j:=0 to StringGrid1.ColCount-1 do
begin
s:=StringGrid1.Cells[j,i];
Sheet.Cells(i+1,j+1):=Utf8ToAnsi (s);
end;
//показываем
exl.visible:=true;
exl.application.activeWorkBook.Save;
end;
Gampos писал(а):сделал все как ты написал
Gampos писал(а):Простите
Код: Выделить всё
Grid.Cells[i,j]:=SysToUtf8(Grid.Cells[i,j]);
Gampos писал(а):если у меня получится,
Gampos писал(а):решение с помощью нотпада