1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:

program Transform;
// Umwandeln von Liste der Flughaefen von
// http://www.partow.net/miscellaneous/airportdatabase/
// in mathematikers Format

uses
  sysutils,classes;
const
  delimiter = ':';
  separator =#9;
var
  L,Z,Erg : tStringlist;
  s: string;
  lon,lat : double;
  i,EndPos,StartPos: integer;

begin
  L := tStringlist.create;
  Z := tStringlist.create;
  Erg := tStringlist.create;
  L.Loadfromfile('GlobalAirportDatabase.txt');

  For i := 0 to L.Count-1 do
  begin
    Z.clear;

    s := L[i];
    // Alle Zeichen zwischen delimiter kopieren
    StartPos := 1;
    For EndPos := 1 to Length(s) do
      if s[EndPos] = delimiter then
        begin
        Z.Add(copy(s,StartPos,EndPos-StartPos));
        StartPos:= EndPos+1;
        end;
    //Nach letztem delimiter
    Z.Add(copy(s,StartPos,EndPos-StartPos));
{
Field 00 - ICAO Code: 4 character ICAO code
Field 01 - IATA Code: 3 character IATA code
Field 02 - Airport Name: string of varying length
Field 03 - City,Town or Suburb: string of varying length
Field 04 - Country: string of varying length
Field 05 - Latitude Degrees: 2 ASCII characters representing one numeric value
Field 06 - Latitude Minutes: 2 ASCII characters representing one numeric value
Field 07 - Latitude Seconds: 2 ASCII characters representing one numeric value
Field 08 - Latitude Direction: 1 ASCII character either N or S representing compass direction
Field 09 - Longitude Degrees: 2 ASCII characters representing one numeric value
Field 10 - Longitude Minutes: 2 ASCII characters representing one numeric value
Field 11 - Longitude Seconds: 2 ASCII characters representing one numeric value
Field 12 - Longitude Direction: 1 ASCII character either E or W representing compass direction
Field 13 - Altitude: varying sequence of ASCII characters representing a numeric value corresponding to the airport's altitude from mean sea level (ie: "123" or "-123")
*                   ft ( wahrscheinlich ) oder m ?
* }
    //IF (z[8] <>'U') AND (z[12] <>'U')then
    begin
      // Erst IATA, ICAO, Ort, Land
      s := ''''+z[1]+','+z[0]+','+z[3]+','+z[4]+'''';
      lat := (StrToInt(z[7])/60+StrToInt(z[6]))/60+StrToInt(z[5]);
      IF z[8] = 'S' then
        lat := -lat;
      lon := (StrToInt(z[11])/60+StrToInt(z[10]))/60+StrToInt(z[9]);
      IF z[12] <> 'E' then
        lon := -lon;
      If (lat <> 0.0) AND (lon <> 0.0) then
        begin
        s:= s+separator+FloatToStr(lat)+separator+FloatToStr(lon);
        Erg.Add(s);
        end;
     end;
  end;
  Erg.Sort;
  Erg.SaveToFile('Ausgabe.txt');

  Erg.free;
  z.free;
  L.free;
end.					

1:
2:

//     DecompressBuf(InpBuf, sz, 0, OutBuf, OutBytes);
      ZLib.ZDeCompress(InpBuf, sz, OutBuf, OutBytes);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:

var
  Form1: TForm1;
  datenverzeichnis, DaCo: string;

const
   configfile = 'wetter10.ini';

function GetSpecialFolder(Folder: Integer): String;
begin
  SetLength(Result,MAX_PATH);
  If SHGetSpecialFolderPath(0, PChar(Result), Folder, false)
    then SetLength(Result,StrLen(PChar(Result)))
    else Result:='';
end;

procedure TForm1.FormActivate(Sender: TObject);
var ini:tinifile;
    nr:integer;
begin
    minutealt:=0;
    listbox1.doublebuffered:=true;
    datenverzeichnis:= GetSpecialFolder(CSIDL_APPDATA) +'\Wetterdaten2\';
    if not DirectoryExists(datenverzeichnis) then mkdir(datenverzeichnis);
    DaCo:= datenverzeichnis+configfile;
    if FileExists(DaCo) then
       Label4.Caption:= ' INI-File: '+DaCo +' exists' else
       Label4.Caption:= ' INI-File: '+DaCo +' NOT exists';

       ini := TIniFile.create(DaCo);//'wetter1.ini');
    try
       nr:=ini.readinteger('Start','Nr',0);
       radiogroup1.itemindex:=ini.readinteger('Start','14Tage',1);
       listbox1.itemindex:=nr;
    finally
       ini.free;
    end;
    listbox1click(sender);
    tc:=30;
end;

procedure TForm1.FormCreate(Sender: TObject);
procedure loadliste(const kk:string);
var ms1: TResourcestream;
    ms2: TMemoryStream;
begin
Form1.WindowState:=wsMaximized;  //th
    ms1 := TResourceStream.Create(hinstance,kk,'RT_RCDATA');
    try
      ms2 := TMemoryStream.Create;
      try
        DecompressStream(ms1, ms2);
        listbox1.items.LoadFromStream(ms2);
      finally
        ms2.Free;
      end;
    finally
      ms1.Free;
    end;
end;
begin
    liste:=tstringlist.create;
    liste2:=tstringlist.create;
    loadliste('mort');
(*  datenverzeichnis:=datenverzeichnissuchen;
    if not directoryexists(datenverzeichnis) then createdir(datenverzeichnis);
    if not fileexists(datenverzeichnis+'wetter1.ini') then
    begin
       ini := TIniFile.create(datenverzeichnis+'wetter1.ini');
       ini.Writeinteger('Start','Nr',0);
       ini.Writeinteger('Start','14Tage',1); //th
       ini.free;
    end;
*)
end;

procedure TForm1.FormDestroy(Sender: TObject);
var ini:tinifile;
begin
    liste.free;
    liste2.free;
    ini := TIniFile.Create(DaCo);
    try
      ini.Writeinteger('Start','Nr',listbox1.itemindex);
      ini.Writeinteger('Start','14Tage',radiogroup1.itemindex);
    finally
      ini.free;
    end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure auswertung2tage;
....
// Die groß geschriebenen Werte werden geändert 
      ziel.font.size:=16;
      if radiobutton1.checked then
        ziel.textout(x-65,y,format('%.0f°C',[tr]))
      else
        ziel.textout(x-65,y,format('%.0f°F',[9*tr/5+32]));
//ein paar Zeilen darunter:
// fehlt dies
//statt ziel.textout(x,y+16,format('Temperatur %.0f °C',[tr]))
      if radiobutton1.checked then
        ziel.textout(x,y+16,format('Temperatur %.0f °C',[tr]))
      else
        ziel.textout(x,y+16,format('Temperatur %.0f°F',[9*tr/5+32]));