Comparar 2 memos

[ecfisa]

Empezado por Mantixd

..., quisiera que leyera los datos de ambos memos pero que no importe como esten ordenados osea

        
Memo1                       Memo2                                     Memo3
                     
ESTOY EN CLUBDELPHI         HOLA COMO ESTAS                           BIEN
HOLA COMO ESTAS BIEN        HACE POCO ESTOY EN CLUBDELPHI             HACE POCO

No se si me este dando a entender osea que no necesite estar igual el texto en ambos memos que encuentre las palabras sin importar la pocision donde esten

Hola.

Código Delphi [-]
procedure TForm1.btnPasarClick(Sender: TObject);
var
  i: Integer;
  TS1,TS2: TStrings;
begin
  Memo3.Clear;
  TS1:= TStringList.Create;
  TS2:= TStringList.Create;
  try
    ExtractStrings([' ',',',';','.'],[],PChar(Memo1.Text),TS1);
    ExtractStrings([' ',',',';','.'],[],PChar(Memo2.Text),TS2);
    // Palabras que existen en Memo1 y en Memo2 no
    for i:= 0 to TS1.Count-1 do
      if TS2.IndexOf(TS1[i])= -1 then
        Memo3.Lines.Add(TS1[i]);
    // Palabras que existen en Memo2 y en Memo1 no
    for i:= 0 to TS2.Count-1 do
      if TS1.IndexOf(TS2[i]) = -1 then
        Memo3.Lines.Add(TS2[i]);
  finally
    TS1.Free;
    TS2.Free;
  end;
end;

Resultado:


Saludos