Komisches Datum mit DateTime und INI-Datei

[Spurius]

Hallo,
das ganze soll eine Fischfangverwaltungssoftware werden, wir fahren morgen los nach Norwegen:

Schreiben:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Var Ini: TInifile;
    Fangzahl: Integer;
    Test: String;
begin
 Ini := TInifile.Create(ExtractFilePath(ParamStr(0)) +'angeln.ini');
 Fangzahl := Ini.ReadInteger(Combobox1.Text, 'Fangzahl',0);
 Test := FileListBox1.Directory + FileListBox1.FileName;
 Ini.WriteString(Combobox1.Text + IntToStr(Fangzahl),'Fischart',combobox2.Text);
 Ini.WriteString(Combobox1.Text + IntToStr(Fangzahl),'Fischgewicht',Edit1.Text);
 Ini.WriteString(Combobox1.Text + IntToStr(Fangzahl),'Fischlaenge',Edit2.Text);
 Ini.WriteString(Combobox1.Text + IntToStr(Fangzahl),'Datum', DateToStr(date1.Date)); // <-- DA
 Ini.WriteInteger(Combobox1.Text, 'Fangzahl', Fangzahl + 1);
 Ini.WriteString(Combobox1.Text + IntToStr(Fangzahl),'Bildpfad',Test);
 Combobox1.Clear;
 Combobox2.Clear;
 Edit1.Text := '';
 Edit2.Text := '';
 Date1.DateTime := Date1.Date;
 Combobox_fill;

end;

Lesen:

Delphi-Quellcode:

procedure tform1.make_tree;
var Ini: TInifile;
    Node1, Node2, Node3: TTreeNode;
    i,j,k,l, Angleranzahl, Anglerfischanzahl: Integer;
    Fangdatum, Name, Fischart, Anglerfischart, ActiveAngler, Fischgewicht, Fischlaenge, Bildpfad: String;
    deci: Boolean;
begin
  Ini := TInifile.Create(ExtractFilePath(ParamStr(0)) + 'angeln.ini');
  Angleranzahl := Ini.ReadInteger('Einstellungen', 'Angleranzahl',0);
  For i := 0 to Angleranzahl - 1 do begin
   Name := Ini.ReadString('Angler', 'Angler' + IntToStr(i), '');
   node1 := TreeView1.Items.Add(nil, Name);
   ActiveAngler := Ini.ReadString('Angler','Angler' + IntToStr(i),'');
   Anglerfischanzahl := Ini.ReadInteger(ActiveAngler, 'Fangzahl', 0);
    For j := 0 to Anglerfischanzahl - 1 do begin
     Bildpfad := Ini.ReadString(ActiveAngler + IntToStr(j), 'Bildpfad', '');
     Anglerfischart := Ini.ReadString(ActiveAngler + IntToStr(j), 'Fischart', '');
     Fischgewicht := Ini.ReadString(ActiveAngler + IntToStr(j), 'Fischgewicht','');
     Fangdatum := Ini.ReadString(ActiveAngler + IntToStr(j), 'Fangdatum','');        // <--DA
     Fischlaenge := Ini.ReadString(ActiveAngler + IntToStr(j), 'Fischlaenge','');
     node1 := TreeView1.Items.AddChild(node1, anglerfischart);
     Treeview1.Items.AddChild(node1, Fischgewicht);
     Treeview1.Items.AddChild(node1, Fischlaenge);
     Treeview1.Items.AddChild(node1, Fangdatum);
     Treeview1.Items.AddChild(node1, Bildpfad);
     node1 := node1.Parent;
    end;
end;
end;

Weiss nicht ob euch das was nützt, ist nicht sehr sauber programmiert.