Текущий архив: 2006.04.02;
Скачать: 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 вся ветка
Текущий архив: 2006.04.02;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.039 c
