Где "косяк"?

← →
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. Только не говори, что у тебя компилятор глючит.

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

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

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

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