Форум: "Начинающим";
Текущий архив: 2007.01.14;
Скачать: [xml.tar.bz2];
ВнизDBGrid Найти похожие ветки
← →
Slimer © (2006-12-21 23:14) [40]Итак, господа програмисты, с большооооой радостью хочу Вам сообщить что функция ЗАРАБОТАЛА!!!
Может она и не будет так сильно востребована в таблице, но она не работала и это не давало мне спокойно жить:)
Вот код абсолютно рабочей на 100% функции:procedure TForm2.N2Click(Sender: TObject);
var c,d:integer;
begin
if i<>0 then
begin
for c:=0 to Table1.Fields.Count-1 do
begin
d:=0;
Table1.First;
while not Table1.Eof do
begin
if d>=DBGrid1.Canvas.TextWidth(DBGrid1.Fields[c].AsString) then
Table1.Next
else
begin
d:=DBGrid1.Canvas.TextWidth(DBGrid1.Fields[c].AsString);
Table1.Next;
end;
end;
DBGrid1.Columns.Items[c].Width:=d+5;
end;
Table1.First;
end
else
begin
ShowMessage("Áàçà äàííûõ íå îòêðûòà!");
end;
end;
← →
Anatoly Podgoretsky © (2006-12-21 23:20) [41]> Slimer (21.12.2006 23:14:40) [40]
Сказано же было заменить на знак больше, а ты на что сменил, на d>= ну и зачем делать присвоение ри равенстве?
← →
Slimer © (2006-12-21 23:40) [42]
> Сказано же было заменить на знак больше, а ты на что сменил,
> на d>= ну и зачем делать присвоение ри равенстве?
Вобщем-то не знаю почему, но пока не помнял на >= ничего не работало:)
← →
Anatoly Podgoretsky © (2006-12-22 01:29) [43]> Slimer (21.12.2006 23:40:42) [42]
Ну так тебе было сказано заменить на знак >, а не на >=
Еще не поздно.
← →
Германн © (2006-12-22 01:41) [44]
> Anatoly Podgoretsky © (21.12.06 23:20) [41]
>
> > Slimer (21.12.2006 23:14:40) [40]
>
> Сказано же было заменить на знак больше, а ты на что сменил,
> на d>= ну и зачем делать присвоение ри равенстве?
Акела промахнулся? :-)
В [40] увеличение ширины происходит только при "<"
Страницы: 1 2 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.01.14;
Скачать: [xml.tar.bz2];
Память: 0.52 MB
Время: 0.014 c