Форум: "Начинающим";
Текущий архив: 2007.02.25;
Скачать: [xml.tar.bz2];
Вниз
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 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.02.25;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.049 c
