Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Где "косяк"? [D7, XP]

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

Рамиль (2006-03-21 14:56:00) [1]
Попробуй так
procedure TForm1.N7Click(Sender: TObject); begin if memo1.Visible then memo1.SelectAll else begin memo2.SelectAll; memo2.SetFocus; end; end;

Сергей М. (2006-03-21 14:53:00) [2]

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

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

clickmaker (2006-03-21 14:49:00) [3]

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

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

Рамиль (2006-03-21 14:48:00) [4]
Значит выполняется условие в if. Только не говори, что у тебя компилятор глючит.

Nsk3D (2006-03-21 14:47:00) [5]

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

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

clickmaker (2006-03-21 14:43:00) [6]
да. И что собственно должно работать?

Рамиль (2006-03-21 14:41:00) [7]
Лучше так:
procedure TForm1.N7Click(Sender: TObject);
begin
if memo1.Visible then
memo1.SelectAll
else
memo2.SelectAll;
end;

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

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

Nsk3D (2006-03-21 14:37:00) [8]

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

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

Сергей М. (2006-03-21 14:32:00) [9]
procedure TForm1.N7Click(Sender: TObject);
begin // <--- ставь сюда брейкпойнт и вперед пошагово !

Nsk3D (2006-03-21 14:28:00) [10]
При нажатии на радиобуттон1

clickmaker (2006-03-21 14:26:00) [11]
при каких обстоятельствах может меняться memo1.Visible?

Наверх

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