| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Почему не очищаются Columns in DBGrid?

Страницы:   < 1 2 >

Drowsy ©   (2014-11-22 16:48:00) 

cnt1 = cnt
Почему?

type
 TForm2 = class(TForm)
   DBGrid1: TDBGrid;
   Button1: TButton;
   Label1: TLabel;
   Label2: TLabel;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var cntб сnt1 : integer;
begin
 cnt := DBGrid1.Columns.Count;
 Label1.Caption := IntToStr(cnt);

 DBGrid1.Columns.Clear;

 cnt1 := DBGrid1.Columns.Count;
 Label2.Caption := IntToStr(cnt1);
end;

end.


---

Drowsy   (2014-11-24 13:44:00) [21]

Кому не лень, намекните, хотя бы, в чём причина?

---

Страницы:   < 1 2 >

Наверх