error en funcion

[diego007]

Hola Amigos, tengo la siguiente funcion que me da error, no se cual es el problema, asi que si podrian ayudarme:

Código Delphi [-]
procedure compara(Lista1:TStringList; Lista2: TStringList; var comparacion:TStringList);
var
K,L,M,Long,I,J:Integer;
Str, Str1:String;
begin
I:=0;
  while (I<=Lista1.Count-1) do begin
    Str:=Lista1.Strings[i];
    J:=0;
    while (J<=Lista1.Count-1) and (Lista1.Strings[i]<>Lista2.Strings[J]) do begin
      Str:=Lista2.Strings[J];
      J:=J+1;
    end;
    if (J<=Lista2.Count-1) then begin
      Lista2.Delete(J);
      Lista1.Delete(I);
    end
    else
      I:=I+1;
  end;
  //***********
  try
    comparacion.Destroy;
  finally
    comparacion.Create;
  end;
  Long:=Lista1.Count-1;
  for K := 0 to Long do begin
    Str1:='[deleted]: '+Lista1.Strings[K];
    comparacion.Append(Str1);
  end;
  Long:=Lista2.Count-1;
  for L := 0 to Long do begin
    Str1:='[new]: '+Lista2.Strings[L];
    //MatarProcesos(Lista2.Strings[L]);
    comparacion.Append(Str1);
  end;
  //***********
  Long:=comparacion.Count-1;
  Form1.ListBox1.Items.Clear;
  for M := 0 to Long do
    Form1.ListBox1.Items.Append(comparacion.Strings[M]);
  end;
  //************
end;

En el ultimo end me sale: ´.´ expected but ´;´ found
please, help me

[delphi.com.ar]

Empezado por diego007

En el ultimo end me sale: ´.´ expected but ´;´ found

Simplemente te esta diciendo que esta esperando un "end." (fin de unidad) pero encontró un "end;" (fin de bloque). En tu caso en particular el problema lo tienes en el último for donde has puesto un end; supongo que queriendo cerrar el bloque del for pero no lo has abierto. Entonces el compilador entiende que ese end; es marca el fin del la función y luego encuentra otro end; que no espera.

Saludos!

[diego007]

Si, eso mismo era, ya lo compile; pero cuando tiene que mostrar la informacion se suelga el programa y poniendo paso a paso la ejecucion me señana este sitio en azul:
for M := 0 to Long do
Que es el for que me comentaste antes
El error que sale es: access violation at address 00003133. Read of address 00003133
Cual sera el problema? yo creo que el codigo esta bien escrito

[Neftali [Germán.Estévez]]

Es raro porque la línea del for no parece que deba fallar.

Este bloque es un poco raro y deberías corregirlo:

Código Delphi [-]
  try
    comparacion.Destroy;
  finally
    comparacion.Create;
  end;

Posiblemente te bastaría hacer un

Código Delphi [-]
  comparacion.Clear;

Si continuas con el inicial, al menos deberías hacer la creación correctamente:

Código Delphi [-]
  comparacion := TStringList.Create();

[BrunoBsso]

Ya me mandó el código por MP y se lo arreglé.
El problema no era en ese trozo de código.
Si mal no recuerdo, era en la creación de otras 2 listas para compararlas y en la detección de los procesos.
Ya no se preocupen.
Igual estoy esperando a que me responda el MP a ver si le sirvió.

EDIT: Sí, le sirvió.