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

Где "косяк"?   Найти похожие ветки 

← →
Nsk3D ©   (2006-03-21 14:23) [0]

Вот кусок текста,Delphi его компилирует но в готовой проге функция не работает!Помогите исправить "косяк"(Если есть).
procedure TForm1.N7Click(Sender: TObject);
begin
if memo1.Visible=true then
begin
memo1.SelectAll;
end
else
begin
memo2.SelectAll;
end
end;

---

← →
clickmaker ©   (2006-03-21 14:26) [1]

при каких обстоятельствах может меняться memo1.Visible?

---

← →
Nsk3D ©   (2006-03-21 14:28) [2]

При нажатии на радиобуттон1

---

← →
Сергей М. ©   (2006-03-21 14:32) [3]

procedure TForm1.N7Click(Sender: TObject);
begin // <--- ставь сюда брейкпойнт и вперед пошагово !

---

← →
Nsk3D ©   (2006-03-21 14:37) [4]

> ставь сюда брейкпойнт


Что вставить?

---

← →
Рамиль ©   (2006-03-21 14:41) [5]

Лучше так:
procedure TForm1.N7Click(Sender: TObject);
begin
 if memo1.Visible then
   memo1.SelectAll
 else
   memo2.SelectAll;
end;


> Что вставить?

Точку останова.

---

← →
clickmaker ©   (2006-03-21 14:43) [6]

да. И что собственно должно работать?

---

← →
Nsk3D ©   (2006-03-21 14:47) [7]

> Лучше так:
> procedure TForm1.N7Click(Sender: TObject);
> begin
>  if memo1.Visible then
>    memo1.SelectAll
>  else
>    memo2.SelectAll;
> end;


инструкция после ELSE не работает

---

← →
Рамиль ©   (2006-03-21 14:48) [8]

Значит выполняется условие в if. Только не говори, что у тебя компилятор глючит.

---

← →
clickmaker ©   (2006-03-21 14:49) [9]

> Nsk3D ©   (21.03.06 14:47) [7]

ну вариантов не так уж и много
- memo1.Visible  всегда true
- в memo2 нет текста
- memo2.Visible = false

---

← →
Сергей М. ©   (2006-03-21 14:53) [10]

> Nsk3D ©   (21.03.06 14:37) [4]
> Что вставить?


Про встроенный в Делфи отладчик что-либо слышал ?

---

← →
Рамиль ©   (2006-03-21 14:56) [11]

Попробуй так
procedure TForm1.N7Click(Sender: TObject);
begin
if memo1.Visible then
  memo1.SelectAll
else
begin
  memo2.SelectAll;
  memo2.SetFocus;
end;
end;

---

Страницы: 1 вся ветка

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



Память: 0.47 MB
Время: 0.029 c