Datum von DateTimePicker in eine Ini File schreiben

[Ouou]

Hi Leutz,

hab hier ein kleines Problem... und zwar versuche ich das Datum das ich ausgewählt habe in der Komponente "DateTimePicker" in die Ini zu schreiben...

Bis jetzt speichere ich nur Edits aus das klappt auch wunderbar aber wie kann ich das Datum noch hinzufügen?

Delphi-Quellcode:

var Ini: TIniFile;
    i:   Integer;
begin
   ini := TIniFile.Create('C:\Versuch.ini');
  // Zum Speichern
  For i := 0 to ComponentCount - 1 do
  begin
    If Components[i] Is TEdit then
    begin
      with Components[i] as TEdit Do
      begin
        ini.WriteString('Daten',name,text);
      end;
    end;
  end;
end;

Hat jemand eine Idee?

MFG

[DeddyH]

Wieso benutzt Du nicht einfach TIniFile.WriteDate?

[Ouou]

In meiner vorhandenen Ini speichere ich schon Sachen von Editfeldern. Nun muss ich noch das Datum in die Ini speichern aber da hänge ich gerade...Kann man TiniFile.WriteDate in den vorhandenen Code mit einbeziehen?

[DeddyH]

Klar kann man.

Delphi-Quellcode:

var Ini: TIniFile;
    i:   Integer;
begin
  ini := TIniFile.Create('C:\Versuch.ini');
  try
    // Zum Speichern
    For i := 0 to ComponentCount - 1 do
    begin
      If Components[i] Is TEdit then
        ini.WriteString('Daten',(Components[i] as TEdit).name,(Components[i] as TEdit).text)
      else if Components[i] is TDateTimePicker then
        ini.WriteDate('Daten',(Components[i] as TDateTimePicker).name,(Components[i] as TDateTimePicker).Date);
        //oder auch als String, wenn Dir das lieber ist
        //ini.WriteString('Daten',(Components[i] as TDateTimePicker).name,FormatDateTime('dd.mm.yyyy',(Components[i] as TDateTimePicker).Date)); 
    end;
  finally
    ini.Free;
  end;
end;

[Ouou]

Danke dir vielmals klappt wunderbar...

MFG

[Ouou]

eine frage hätte ich noch...das jahr wird bei mir in der ini in der letzten zeile angezeigt ich bräuchte es aber in der ersten zeile. jemand einen vorschlag wie ich es hinbekomme?

MFG

[DeddyH]

Verstehe ich nicht. Kannst Du mal die Datei posten, wie sie ist und wie Du sie gerne hättest? Eigentlich sollte die Zeilenreihenfolge ja keine Rolle spielen, wenn Du sie mit TIniFile wieder ausliest.

[Ouou]

hier ist das datum in der letzten zeile, ich benötige es aber in der allerersten

[DeddyH]

Auch wenn ich den tieferen Sinn dahinter nicht sehe, versuch einmal, die Bedingungen innerhalb der Schleife (die mit is) umzudrehen, also zuerst auf TDateTimePicker und erst dann auf TEdit zu prüfen. Dazu musst Du aber wohl vorher die alte Ini löschen.

[Luckie]

Das ist doch völlig unerheblich in welcher Reihenfolge die Werte in der Ini stehen. Denn ausgelesen werden die Wert doch über den Sektions- und Schlüsselnamen. aber wenn du es unbedingt so willst, dann schreib eben das Datum zu erst in die Datei und dann den Rest.