var iCount,iNext:integer TmpStr:String; begin iCount:=0; while iCount<ListBox1.Items.Count do begin TmpStr:=ListBox1.Items[iCount]; iNext:=iCount+1; while iNext<listbox1.Items.Count do begin if TmpStr=ListBox1.Itmes[iNext] then ListBox1.Items.Delete(iNext); Inc(iNext); end; Inc(iCount); end; end;
不知你是要把什麼東東放到那裡
iCount,iNext:integer
TmpStr:String;
begin
iCount:=0;
while iCount<ListBox1.Items.Count do
begin
TmpStr:=ListBox1.Items[iCount];
iNext:=iCount+1;
while iNext<listbox1.Items.Count do
begin
if TmpStr=ListBox1.Itmes[iNext] then
ListBox1.Items.Delete(iNext);
Inc(iNext);
end;
Inc(iCount);
end;
end;