delphi4arab منتديات دلفي للعرب

السلام عليكم

كود :
  with listbox1.Items do begin
  FoundIndex := IndexOf('Pepsi cola');
    if FoundIndex > -1 then
      Delete(FoundIndex)
  end;

هذا الكود يمحي 'pepsi cola' من اللائحة
السؤال:
كيف امحي كل المشروبات من اللائحة والابقاء على المواد الاخرى

وعليكم السلام ورحمة الله وبركاته،

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; 

jeanjamil

kachwahed