29-06-2012, 12:47 PM
29-06-2012, 06:45 PM
هذا الكود يعمل مع 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;29-06-2012, 09:56 PM
وعليكم السلام
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;
11-07-2012, 10:28 AM
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;السلام عليكم