Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 26-02-2010
diego007 diego007 is offline
Miembro
 
Registrado: nov 2009
Posts: 26
Poder: 0
diego007 Va por buen camino
error en funcion

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

Última edición por delphi.com.ar fecha: 26-02-2010 a las 22:59:50. Razón: Cambio de etiquetas
Responder Con Cita
  #2  
Antiguo 26-02-2010
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.954
Poder: 27
delphi.com.ar Va camino a la fama
Cita:
Empezado por diego007 Ver Mensaje
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!
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
Responder Con Cita
  #3  
Antiguo 26-02-2010
diego007 diego007 is offline
Miembro
 
Registrado: nov 2009
Posts: 26
Poder: 0
diego007 Va por buen camino
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
Responder Con Cita
  #4  
Antiguo 02-03-2010
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.549
Poder: 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 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();
__________________
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
  #5  
Antiguo 03-03-2010
BrunoBsso BrunoBsso is offline
Miembro
 
Registrado: nov 2009
Ubicación: Berisso, Buenos Aires, Argentina
Posts: 239
Poder: 15
BrunoBsso Va por buen camino
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ó.

Última edición por BrunoBsso fecha: 03-03-2010 a las 04:23:51.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
error de funcion dentro de un stringlist... Greco Varios 6 03-09-2008 09:57:08
Error al accesar una funcion en una DLL FGarcia Varios 11 23-06-2008 23:24:59
Error al crear una imagen en una funcion ilcapo C++ Builder 0 12-04-2007 22:12:07
Error con funcion astut Varios 4 17-09-2006 15:47:04
Error funcion mail() Andrea Martinez PHP 6 02-12-2004 17:00:34


La franja horaria es GMT +2. Ahora son las 01:13:49.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi