FormatSettings
 

Buenas a todos:

Estoy intentando aplicar el truco de obtener la temperatura (http://www.clubdelphi.com/trucos/index.php?id=395)
de tu localidad, pero al compilar me da el siguiente error y no se por que es.

[Error] Principal.pas(171): Undeclared identifier: 'TFormatSettings'
[Error] Principal.pas(174): Undeclared identifier: 'GetLocaleFormatSettings'

¿alguien me puede ayudar?

Tienes incluida la unidad 'SysUtils' en tu cláusula Uses ?

P.D. Sólo informar que el código del aeropuerto de Málaga es LEMG

Saludos, ;)

La verdad es que la función pretendía ser mas de lo que al final fue :p

"Parseaba" la fecha, la hora, la estación, etc ... pero si lo único que quieres es la temperatura no hace falta tanta tontería. Aquí te dejo la versión recortada:

Código Delphi [-]
function Temperatura(Estacion: String): Integer;
begin
  Result:= MAXINT;
  with TStringList.Create do
  try
    DelimitedText:= Bajar(Format(
      'ftp://tgftp.nws.noaa.gov/data/observations/metar/stations/%s.TXT',
      [Estacion]));
    Delete(0);
    Delete(0);
    if Count > 0 then
    begin
      while (pos('/',Strings[0]) = 0) do
      begin
        Delete(0);
        if Count = 0 then
          exit;
      end;
      Result:= GetNum(Strings[0]);
    end;
  finally
    Free;
  end;
end;

Con la versión recortada funciona perfectamente.

Gracias.