Обработчик нажатия кнопки

[OlegII]

Здравствуйте!
Помогите, пожалуйста, с решением задачки или дайте ссылку на материал по теме.
На форме установлены: метка Label1, редакторы Edit1 и Edit2 и кнопка Button1. Описать обработчик нажатия кнопки, в котором в метку выводятся символы, имеющиеся в Edit1 и отсутствующие в Edit2.
Заранее огромное спасибо!!!

[Stilet]

Покажи код проверки символов, имеющиеся в Edit1 и отсутствующие в Edit2.

[Snejnaya]

на форму скидываешь label и 2 окошка edit а также кнопку. Дважды щелкаешь по кнопке - открывается окно кода - в нем автоматически создается обработчик щелчка по кнопке - что-то типа

void __fastcall TForm1::Button1Click(TObject *Sender)
{

}

у меня С-билдер, в делфи синтаксис будет другой. Внутри этого обработчика пишешь свой код.

Чтобы считать текст, написанный в Edit в том же с-билдере можно сделать так:

char massiv[20];
sscanf((Form1->Edit1->Text).c_str(), "%c", &massiv);

в массив будет считаны символы из Edit.

В делфи еще проще

var massiv:string[20];
string: = Form1.Edit1.Text;

Так считываешь содержимое двух Editов в два разных символьных массива. Теперь с этими массивами можно работать, как тебе нравится. Например, в Си:

char massiv1[20], massiv2[20], resultm[20]=""; ch;
int i, j, k=0, flag;

for(i=0;i<20;i++)
{
ch = massiv1[i];
flag=0;
for(j=0;j<20;j++)
{
if (massiv2[j] == ch) flag=1;
}
if (flag==1)
 {
   resultm[k]=ch;
   k++;
  }
}

Затем выводим результат в label:
Form1->Label1->Caption = AnsiString(resultm);

[SERG1980]

не надо массивов. Ф-ия Pos и цикл тут поможет

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
 for i:=1 to Length(Edit1.Text) do
  if Pos(Edit1.Text[i],edit2.Text)=0 then
  Label1.Caption:=Label1.Caption + Edit1.Text[i];
end;

[Mad_Cat]

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
 for i:=1 to Length(Edit1.Text) do
  if (Pos(Edit1.Text[i],edit2.Text)=0) and (Pos(Edit1.Text[i],label1.Caption)=0) {я бы добавил}
 then
  Label1.Caption:=Label1.Caption + Edit1.Text[i];
end;