| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
stringgrid ->excel [D7, XP]
inkvizitor © (2007-02-06 14:03:00)Доброго времени суток!
1)нужен пример сохранения стринггрида в эксель через savedialog или вообще как это делается?
что то типа:
if savedialog1.execute then
stringgrid1.??????????? - вообщем в эксель.
2)не помещается число в ячейку стринга что надо в свойствах стринга настроить или програмно написать?
inkvizitor (2007-02-06 16:12:00) [1]
> Elen © (06.02.07 15:59) [11]
спасиба еще раз.
> Тебе можно любое.
профессионалам отдельная просьба - быть снисходительными.не забывай!
Сергей М. (2007-02-06 16:00:00) [2]
> inkvizitor
> почему 40 или можно любое число?
Тебе можно любое.
Elen (2007-02-06 15:59:00) [3]
> почему 40 или можно любое число?
Это число - минимум ширины.
inkvizitor (2007-02-06 15:56:00) [4]Еще раз БАЛЬШОЕ СПАСИБО!
только я вот не поймуtag>40
почему 40 или можно любое число?
Elen (2007-02-06 15:42:00) [5]
> 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:35:00) [6]БОЛЬШОЕ СПАСИБО словил!! (8-)
только теперь не подскажешь :
чтобы ячейка стринггрида по размеру числа подходила а то вручную приходится раздвигать границы ячейки стринггрида(в ширину)?
какое свойство таблички за это отвечает или программно???
Elen (2007-02-06 15:24:00) [7]
> ну как примерно это делается ???
[5]
inkvizitor (2007-02-06 15:23:00) [8]
> Смазать не пробовал ?
чето у тебя мысли об одном и том же (проктолог ,смазать ????странно ..)
> Что подсказать?
ну как примерно это делается ???
Elen (2007-02-06 15:20:00) [9]
> 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;
Elen (2007-02-06 15:10:00) [10]
> не подскажешь pls.
Что подсказать?
Сергей М. (2007-02-06 15:08:00) [11]
> не помещается число в ячейку стринга
Смазать не пробовал ?
inkvizitor (2007-02-06 15:01:00) [12]
> Чьего стринга?
стринггрида.
> Ну сохрани из стрингов в формат CVS
не подскажешь pls.
Elen (2007-02-06 14:09:00) [13]
> нужен пример сохранения стринггрида в эксель
Ну сохрани из стрингов в формат CVS и открой его в экзеле.
> не помещается число в ячейку стринга
Чьего стринга?
| |
