+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف امحي بنود معينة من listbox (/showthread.php?tid=8725)
كيف امحي بنود معينة من listbox - jeanjamil - 18-06-2017
السلام عليكم
كود :
with listbox1.Items do begin
FoundIndex := IndexOf('Pepsi cola');
if FoundIndex > -1 then
Delete(FoundIndex)
end;هذا الكود يمحي 'pepsi cola' من اللائحة
السؤال:
كيف امحي كل المشروبات من اللائحة والابقاء على المواد الاخرى
RE: كيف امحي بنود معينة من listbox - kachwahed - 24-06-2017
وعليكم السلام ورحمة الله وبركاته،
PHP كود :
var
FoundIndex, I: Integer;
DrinksToDelete: TStringList;
begin
DrinksToDelete := TStringList.Create;
try
DrinksToDelete.Add('Hamoud Boualem');
DrinksToDelete.Add('Ngaoues');
DrinksToDelete.Add('Rouiba');
DrinksToDelete.Add('Pepsi cola');
//...
for I := 0 to DrinksToDelete.Count - 1 do begin
FoundIndex := listbox1.Items.IndexOf(DrinksToDelete[I]);
if FoundIndex > -1 then
listbox1.Items.Delete(FoundIndex);
end;
finally
DrinksToDelete.Free;
end;
end;