procedure TForm1.Recup;
var tmp:string;
i:integer;
begin
tmp:=listbox2.items.text;
for i:=1 to listbox1.items.count do
begin
if pos (listbox1.items[i],tmp) >0 then delete(tmp, pos (listbox1.items[i],tmp), length(listbox1.items[i]) );
end;
//tu peut déja essayer:
showmessage(tmp);
//pis si ça roule:
// listbox3.items.add(tmp);
end; |