Buscar y eliminar en un StringList

[wilcg]

Hola amigos del foro, necesito su ayuda.
Lo que pasa es que tengo 2 TStringlist, en donde cargo información. Ahora lo que quiero es eliminar en el StringList2 los textos que existen en el StringList1 por ejemlpo.

StringList1
12345
12346
12347

StringList2
34957
95746
12345 =======> este quisiera eliminar porque ya existe en el StringList1 y así todos los que existan..

estoy intentando con algo así

Código Delphi [-]
var
   i :integer;
   Lista1, Lista2 :TStringList;
begin
  for i := 0 to Lista1.Count -1 do
  begin
    if Lista2.IndexOf(Lista1.Text) = Lista1.Text then
     Lista2.Delete(i);
  end;
end;

si alguien me indica el camino.

[ecfisa]

Hola wilcg.

El código se podría optimizar dependiendo de si las listas tienen elementos repetidos, estan ordenadas, etc. , pero de este modo te va a funcionar para cualquier caso:

Código Delphi [-]
procedure RemoveRepeated(const Source: TStrings; Target:TStrings);
var
  i, j: integer;
begin
  for i:= Source.Count-1 downto 0 do
    for j:= Target.Count-1 downto 0 do
      if Source[i] = Target[j]then
        Target.Delete(j);
end;

Saludos

[Ñuño Martínez]

Creo que deberías revisar la documentación referente a las clases TStrings y TStringList, ya que creo que no has comprendido bien la propiedad Text ni el método IndexOf.

Text contiene todas las líneas contenidas en el objeto, mientras que IndexOf devuelve el número de línea donde se encuentra un texto o -1 si este no existe.

[Edito] Se me adelantó, señor ecfisa...

[[nlsgarcia]]

wilcg,

Empezado por wilcg

...StringList...

Revisa esta información:

1- El objeto StringList (I)

2- El objeto StringList (II)

3- El objeto StringList (y III)

4- TStringList

5- TStringList-TStrings Tutorial

Espero sea útil

Nelson.

[wilcg]

Agradecerles a todos por ayudarme con este tema, ya había leído varios hilos por ahí pero no lograba obtener lo deseado y por eso necesitaba algo mas especifico como para un novato.
pero ya esta solucionado el código del maestro ecfisa, quedo tal cual lo quería, parece como si supiera lo que necesito siempre me da el código exacto. Gracias por sus aportes maestro.