عدم تكرار الاسماء في ليست فيوListView
#4
ghost-dz كتب :وعليكم السلام
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;

السلام عليكم
و لرب نازلة يضيق لها الفتى ذرعا و عند الله منها المخرج
ضاقت فلما استحكمت حلقاتها فرجت و كنت اضنها لا تفرج
الرد


الردود في هذا الموضوع
عدم تكرار الاسماء في ليست فيوListView - بواسطة S.FATEH - 11-07-2012, 10:28 AM

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم