Ver Mensaje Individual
  #2  
Antiguo 31-10-2007
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - Espańa
Posts: 18.267
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Es sencillo; Tanto la propiedad Lines de TMemo, como la propiedad Items de TListBox son TStrings.
Basta con que hagas un recorrido por ambas y compares con AnsiCompareStr o AnsiCompareText.

Algo así:

Código Delphi [-]
  for i :=0 to (MEmo1.Lines.Count - 1) do begin
    // Comparar linea a linea
    if (AnsiCompareText(Memo1.Lines[i], ListBox1.Items[i]) = 0) then begin
      ... iguales
    end
    else begin
      ... diferentes
    end;
  end;
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita