Ver Mensaje Individual
  #2  
Antiguo 25-01-2018
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.

Por lo que entiendo deseas que aparezca la fecha/hora sobre el eje de las absisas y la temperatura en el eje de las ordenadas. Si es así, podes hacer:
Código Delphi [-]
...
implementation

procedure TForm1.FormCreate(Sender: TObject);
var
  stFile, stComa : TStrings;
  aux : Char;
  i : Integer;
begin
  Chart1.BottomAxis.LabelsAngle := 90; // vertical;
  stFile := TStringList.Create;
  aux    := DecimalSeparator;
  DecimalSeparator := '.';
  try
    stFile.LoadFromFile('WUNDERGROUND.TXT'); //(Archivo copia fiel de los datos de tu enlace)
    for i := 1 to stFile.Count - 1 do
    begin
      stComa := TStringList.Create;
      try
        ExtractStrings([','], [], PChar(stFile[i]), stComa);
        Chart1.Series[0].Add(StrToFloatDef(stComa[1],0), stComa[0]);
      finally
        stComa.Free;
      end;
    end;
  finally
    stFile.Free;
    DecimalSeparator := aux;
  end;
end;
...

Salida:


Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 25-01-2018 a las 23:27:00.
Responder Con Cita