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];
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