[ Foro de Pascal ]

Corregir una lista

07-Jan-2018 18:10
Invitado (ivan)
0 Respuestas

Hola, perdonar pero es que llevo varios dias dandole vueltas a un ejercicio que tengo que hacer y me da error.  
Esto es lo que tengo hecho
PROCEDURE LeerHashtags (VAR registro:  TTwitter;   VAR fichero_texto:  text;   numero_tweets:  integer);
         VAR          
            control_indice, control_indice2:   integer;
            caracter:                          char;
        BEGIN
             assign(fichero_texto, RUTA_FICHERO_TWEETS_TEXTO);
             reset(fichero_texto);
             FOR control_indice := 1 TO numero_tweets DO
                 if not eoln(fichero_texto) then
                    BEGIN
                         read(fichero_texto, caracter);
                         for control_indice2:=1 to registro[control_indice].hashtags.numerohashtags do
                             BEGIN
                                 if (caracter = almohadilla) then
                                    REPEAT
                                    read(fichero_texto, caracter);
                                    registro[control_indice].hashtags.listahashtag[control_indice2] := registro[control_indice].hashtags.listahashtag[control_indice2] + caracter;
                                    UNTIL (caracter = espacio);
                             END;
                  END;
             close(fichero_texto);
          END;

El problema esta en que solo lee el primer hashtag del primer tweet, cuando tendria que leer todos y hacer una lista con ellos.
?Cual puede ser el error?




Si ya eres usuario del sistema, puedes contestar desde tu cuenta y así ganar prestigio.

Si sólo eres un visitante, puedes optar por...