aus Ini datei ein Datum und eine Zeit auslesen

[kingsusu]

Matze, die Tutorials habe ich echt durch..
aber das ist halt echt der letzte Schritt und ich tu mir da nicht so leicht bei der Sache.. :(

Hab ich das richtig verstanden thkerkmann?

Vorher hatte ich:

Delphi-Quellcode:

var filename, beschreibung:string;

begin
Timer1.Enabled := true;
filename :=  Extractfilepath (application.ExeName) + 'MeineDaten.ini';

   WriteToIni (Filename,'Myvars','Überschrift',eduber.Text);
   WriteToIni (Filename,'Myvars','Beschreibung',edmem.Text);
   WriteToIni (Filename,'Myvars','Zeit',TimeToStr(pickerzeit.Time));
   WriteToIni (Filename,'Myvars','Datum',DateToStr(pickerdatum.date));

if fileexists(filename)  then //wenn es filename gibt, dann sollen mir die Daten auf mein Treeview angezeigt werden

    Beschreibung := readfromini(filename, 'Myvars', 'Beschreibung') + ' (' + readfromini(filename, 'Myvars', 'Zeit') + ')'+' (' + readfromini(filename, 'Myvars', 'Datum') + ')';
    AddEvent(readfromini(filename, 'Myvars', 'Überschrift'), Beschreibung, TreeView1);


end;

Und jetzt habe ich. Ich sehe in meiner File, dass mehrere Datenpakete gespeichert werden.

Delphi-Quellcode:

var filename, beschreibung, count:string;
var nr: integer;
begin
Timer1.Enabled := true;
filename :=  Extractfilepath (application.ExeName) + 'MeineDaten.ini';
WriteToIni (Filename, 'Weckzeiten', 'Anzahl', Count);

     WriteToIni (Filename,'Weckzeit'+IntToStr(nr),'Überschrift', eduber.Text);
     WriteToIni (Filename,'Weckzeit'+IntToStr(nr),'Beschreibung', edmem.Text);
     WriteToIni (Filename,'Weckzeit'+IntToStr(nr),'Zeit', TimeToStr(pickerzeit.Time));
    WriteToIni (Filename,'Weckzeit'+IntToStr(nr),'Datum', DateToStr(pickerdatum.date));



if fileexists(filename)  then //wenn es filename gibt, dann sollen mir die Daten auf mein Treeview angezeigt werden

    Beschreibung := readfromini(filename, 'Myvars', 'Beschreibung') + ' (' + readfromini(filename, 'Myvars', 'Zeit') + ')'+' (' + readfromini(filename, 'Myvars', 'Datum') + ')';
    AddEvent(readfromini(filename, 'Myvars', 'Überschrift'), Beschreibung, TreeView1);

Da ich jetzt Myvars in 'Weckzeit'+IntToStr(nr) geändert habe, so müsste ich doch auch MYvars hier:

Delphi-Quellcode:

    Beschreibung := readfromini(filename, 'Myvars', 'Beschreibung') + ' (' + readfromini(filename, 'Myvars', 'Zeit') + ')'+' (' + readfromini(filename, 'Myvars', 'Datum') + ')';
    AddEvent(readfromini(filename, 'Myvars', 'Überschrift'), Beschreibung, TreeView1);

auch ändern oder?

[thkerkmann]

Ja schon, aber wie ich bereits sagte:
Die aktuelle Datenstruktur ist suboptimal für deine Aufgabenstellung.