عدم تكرار الاسماء في ليست فيوListView

[M_Mori2010]

السلآم عليكم ورحمة الله وبركاته
كيف فحص الاسم المدخل في Edit عند الضغط على Btn اذا كان موجود في ال List View قبل اضافته وجزاكم الله كل خير

[format82]

هذا الكود يعمل مع listbox عدل عليها لكي يعمل مع List View

كود :

var x:integer; begin for x:=0 to listbox1.Count-1 do if listbox1.Items.Strings[x]=edit1.Text then listbox1.Selected[x]:=true;

[Agmcz]

وعليكم السلام

PHP كود :

function ListViewDuplicates(const LV: TListView; const Check: string): Boolean;
var
  i: Integer;
begin
  Result := False;
  for i := LV.Items.Count - 1 downto 0 do
  begin
    if LV.Items[i].Caption = Check then
    begin
      Result := False;
      Break;
    end
    else
      Result := True;
  end;
end;

Button:

var
  Li: TListItem;
begin
  if ListViewDuplicates(ListView1, Edit1.Text) then
  begin
    Li := ListView1.Items.Add;
    Li.Caption := Edit1.Text;
  end;
end; 


[S.FATEH]

وعليكم السلام

PHP كود :

function ListViewDuplicates(const LV: TListView; const Check: string): Boolean;
var
  i: Integer;
begin
  Result := False;
  for i := LV.Items.Count - 1 downto 0 do
  begin
    if LV.Items[i].Caption = Check then
    begin
      Result := False;
      Break;
    end
    else
      Result := True;
  end;
end;
end; 


لا داعي لتحديد result بعد break الافضل:

كود :

function ListViewDuplicates(const LV: TListView; const Check: string): Boolean; var i: Integer; begin Result := True; for i := LV.Items.Count - 1 downto 0 do begin if LV.Items[i].Caption = Check then begin Result := False; Break; end end; end;

السلام عليكم