التحقق من ال editbox قبل ادخاله في listbox ؟

[hanipino]

هده طريقة اخرى (صعيرة و جميلة و مفهومة) . طريقتين احسن من طريقة .

كود :

Function theStr(Str:string;Listbox:TListBox):Variant; var I: integer; begin I := Listbox.Items.IndexOf(Str); if I > -1 then ShowMessage('موجود مسبقا'+' '+Str) else If (Str <> '') then listbox.Items.Add(Str); end;

كود :

procedure TForm1.Button1Click(Sender: TObject); begin theStr(Edit1.Text,Listbox1); end;