![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Здравствуйте!
Помогите, пожалуйста, с решением задачки или дайте ссылку на материал по теме. На форме установлены: метка Label1, редакторы Edit1 и Edit2 и кнопка Button1. Описать обработчик нажатия кнопки, в котором в метку выводятся символы, имеющиеся в Edit1 и отсутствующие в Edit2. Заранее огромное спасибо!!! |
#2
|
|||
|
|||
![]() Код:
procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin label1.Caption:=''; for i:=1 to length(Edit1.Text) do if pos(edit1.Text[i],edit2.Text)<1 then label1.Caption:=label1.Caption+edit1.Text[i]; end; Новый вирус - "БОМЖ"! Он просто роется в Корзине...и спит под ярлычком "Сетевое окружение" Последний раз редактировалось Admin, 08.12.2010 в 20:21. |
#3
|
|||
|
|||
![]() Огромное спасибо!
|