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

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("&#193;&#224;&#231;&#224; &#228;&#224;&#237;&#237;&#251;&#245; &#237;&#229; &#238;&#242;&#234;&#240;&#251;&#242;&#224;!");
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 вся ветка

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



Память: 0.52 MB
Время: 0.03 c