求助导入Excel问题。

Question

  SetLength(SaveSJH,1000);       //定义水井数组的空间
  SetLength(SaveYJH,1000);
  SetLength(SavePFXS,1000);
  ListBox5.Clear;
  OpenDialog1 := TOpenDialog.Create(Self);
  OpenDialog1.DefaultExt := '*.xls';
  OpenDialog1.Filter := 'Excel Files (*.xls)|*.xls';
  if OpenDialog1.Execute then
  begin
    ExcelName := OpenDialog1.FileName;
  end
  else
  Exit;  ExcelApp := CreateOleObject('Excel.Application');
  ExcelApp.WorkBooks.Open(Excelname);
  ExcelApp.WorkSheets[1].Activate;
  Sheet:= ExcelApp.WorkSheets[1];  ExcelCount := ExcelApp.WorkSheets[1].UsedRange.Rows.Count;
  for i := 0 to ExcelCount do
  begin
    SaveSJH[i] := Sheet.Cells[i+2,1].Value;
    SaveYJH[i] := Sheet.Cells[i+2,2].Value;
    SavePFXS[i]:= Sheet.Cells[i+2,3].Value;
    ListBox5.Items.Add(SaveSJH[i]);
  end;
 
  SaveSJH为数组
  求助，我要把SaveSJH中的数据添加到ListBox中，但是有重复数据的存在，该怎么去除重复呢？  

Answer 1

if lb1.Items.IndexOf(SaveSJH[i])<0 then lb1.Items.Add(SaveSJH[i]);