Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > C++ Builder
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #5  
Antiguo 09-01-2018
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: 19.437
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
Cita:
Empezado por lago Ver Mensaje
Hola Neftalí, gracias por responder tan rápido y por tu ejemplo! más o menos es lo que he hecho. Mi problema es que necesito un DBGrid con tooooodos los puntos independientemente del track que sea.
Directamente no.
Pero se solventa realizando iun recorrido de todos los segmentos y a su vez un recorrido de todos los puntos de cada segmente.
Puedes usar un TClientDataset, pore ejemplo, para almacenarlos todos.

Algo así:

Código Delphi [-]
procedure TForm2.Button1Click(Sender: TObject);
begin
  cdsAllPoints.CreateDataSet;
  cdsAllPoints.OPen;

  cdsSegment.First;
  while (not cdsSegment.Eof) do begin
    cdsPuntos.First;
    Memo1.Lines.Add('Segmento: ' + cdsSegment.FieldByName('name').AsString);
    Memo1.Lines.Add('   ->' + IntToStr(cdsPuntos.RecordCount) + ' puntos');
    while (not cdsPuntos.Eof) do begin
      // Añadirlo ---------------------------
      cdsAllPoints.Append;
      cdsAllPoints.FieldByName('lat').AsString := cdsPuntos.FieldByName('lat').AsString;
      cdsAllPoints.FieldByName('lon').AsString := cdsPuntos.FieldByName('lon').AsString;
      cdsAllPoints.FieldByName('ele').AsString := cdsPuntos.FieldByName('ele').AsString;
      cdsAllPoints.FieldByName('time').AsString := cdsPuntos.FieldByName('time').AsString;
      cdsAllPoints.Post;
      //-------------------------------------
      cdsPuntos.Next;
    end;
    cdsSegment.Next;
  end;
  Memo1.Lines.Add('TOTAL DE PUNTOS: ' + IntToStr(cdsAllPoints.RecordCount));
end;

cdsAllPoints es un TClientDataset con 4 campos (lat, lon, ele y time).

Por lo que he visto no es que sea al perder señal, sino cada 500 puntos.
Muchos dispositivos antiguos (sobre todo Garmin que se consideran estandard) almacenaban como máximo 500 puntos por track. Sea uno de estos o sea uno nuevo que lo haga por compatibilidad, el tuyo está generando diferentes segmentos cuando llega a ese límite.

Crea un nuevo dataset como te he dicho y con ese procedimiento puedes hacer el recorrido.
El resultado es el siguiente:

-------------------------------
Segmento: T6758644-0
->500 puntos
Segmento: T6758644-1
->500 puntos
Segmento: T6758644-2
->500 puntos
Segmento: T6758644-3
->500 puntos
Segmento: T6758644-4
->500 puntos
Segmento: T6758644-5
->500 puntos
Segmento: T6758644-6
->500 puntos
Segmento: T6758644-7
->357 puntos

TOTAL DE PUNTOS: 3857


-------------------------------
__________________
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
 



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 al importar fichero txt jafera Varios 28 14-07-2014 16:30:34
DELPHI6 Importar fichero codificado UTF-8 a Dbase Jose Manuel Varios 0 16-05-2011 18:46:14
Importar fichero XML cincosoft OOP 1 08-02-2009 10:29:58
Importar fichero .dat desde cobol julian_ch Varios 0 08-08-2005 17:43:17
importar fichero consumo telefonica tonid Varios 3 11-09-2003 09:49:28


La franja horaria es GMT +2. Ahora son las 19:37:39.


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