problema con tstringlist...

[Narciso]

immaginiamo di avere due stringlist sl1 sl2.... immaginiamo di riempire la prima con i numi propri maschili.... in italiano.... e la seconda con nomi femminili.

Volendo eliminare dallla prima i nomi che appaiono uguali nella seconda.. ( per esempio Andrea e Andrea) ....

verrebbe immediato...

for x:= 0 to sl1.count-1 do
for y:= 0 to sl2.count-1 do
if sl1.strings

• =sl2.strings[y] then sl1.delete
• ;

purtroppo pero' anche in questo caso la procedura e' scorretta poiche' la sl1... si trasforma e quindi perde un elemento non appenna viene effettuato il delete....

il ciclo va in errore.....

Come risolvereste?

[nomorelogic]

prova con qualcosa tipo

Codice: [Seleziona]

var scan1: integer;
begin
   scan1 := 0;
   while (scan1 < sl1.Count) and (sl1.Count > 0) do 
       if sl2.IndexOf(sl1[scan1]) > 0 then
          sl1.delete
       else
          inc(scan1);
end;

NB: l'ho scritto qua, non l'ho provato

[bonmario]

Oltre a quello che ti ha scritto nomorelogic, ti conviene ordinare la stringa su cui fai l' "IndexOf", così la ricerca è più veloce.


Ciao, Mario

[Narciso]

GRAZIE MILLE

[bonmario]

Oltre a quello che ti ha scritto nomorelogic, ti conviene ordinare la stringa su cui fai l' "IndexOf", così la ricerca è più veloce.


Ciao, Mario

Ops... intendevo dire di ordinare la TStringList su cui fai l' "IndexOf" .....

Ciao, Mario