stringgrid ->excel

← →
inkvizitor © (2007-02-06 14:03) [0]

Доброго времени суток!
1)нужен пример сохранения стринггрида в эксель через savedialog или вообще как это делается?
что то типа:
if savedialog1.execute then
stringgrid1.??????????? - вообщем в эксель.
2)не помещается число в ячейку стринга что надо в свойствах стринга настроить или програмно написать?

← →
Elen © (2007-02-06 14:09) [1]

> нужен пример сохранения стринггрида в эксель

Ну сохрани из стрингов в формат CVS и открой его в экзеле.

> не помещается число в ячейку стринга

Чьего стринга?

← →
inkvizitor © (2007-02-06 15:01) [2]

> Чьего стринга?

стринггрида.

> Ну сохрани из стрингов в формат CVS

не подскажешь pls.

← →
Сергей М. © (2007-02-06 15:08) [3]

> не помещается число в ячейку стринга

Смазать не пробовал ?

← →
Elen © (2007-02-06 15:10) [4]

> не подскажешь pls.

Что подсказать?

← →
Elen © (2007-02-06 15:20) [5]

> inkvizitor

Код? Тогда лови :
procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin for i:=0 to StringGrid1.RowCount-1 do begin StringGrid1.Rows[i].Delimiter:=";"; ListBox1.Items.Append(StringGrid1.Rows[i].DelimitedText); end; ListBox1.Items.SaveToFile("dd.csv"); end;

← →
inkvizitor © (2007-02-06 15:23) [6]

> Смазать не пробовал ?

чето у тебя мысли об одном и том же (проктолог ,смазать ????странно ..)

> Что подсказать?

ну как примерно это делается ???

← →
Elen © (2007-02-06 15:24) [7]

> ну как примерно это делается ???

[5]

← →
inkvizitor © (2007-02-06 15:35) [8]

БОЛЬШОЕ СПАСИБО словил!! (8-)
только теперь не подскажешь :
чтобы ячейка стринггрида по размеру числа подходила а то вручную приходится раздвигать границы ячейки стринггрида(в ширину)?
какое свойство таблички за это отвечает или программно???

← →
Elen © (2007-02-06 15:42) [9]

> inkvizitor © (06.02.07 15:35) [8]

Конечно, Лови :
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char); begin tag:=StringGrid1.Canvas.TextWidth(StringGrid1.Cells[StringGrid1.col,StringGrid1. Row]); if tag>40 then StringGrid1.ColWidths[StringGrid1.Col]:=StringGrid1.Canvas.TextWidth(StringGrid1 .Cells[StringGrid1.col,StringGrid1.Row]); end;

Еще раз БАЛЬШОЕ СПАСИБО!
только я вот не пойму tag>40
почему 40 или можно любое число?

> почему 40 или можно любое число?

Это число - минимум ширины.

> inkvizitor
> почему 40 или можно любое число?

Тебе можно любое.

> Elen © (06.02.07 15:59) [11]

спасиба еще раз.

> Тебе можно любое.

профессионалам отдельная просьба - быть снисходительными. не забывай!

stringgrid ->excel Найти похожие ветки