Скачать: CL | DM;

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;


---

← →
inkvizitor ©   (2007-02-06 15:56) [10]

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

---

← →
Elen ©   (2007-02-06 15:59) [11]

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

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

---

← →
Сергей М. ©   (2007-02-06 16:00) [12]

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


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

---

← →
inkvizitor ©   (2007-02-06 16:12) [13]

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

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


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


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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.032 c