Listbox, bei Überschrift-klick kommt ausführlicher Bericht

[Matze]

Zitat von kingsusu:

Delphi-Quellcode:

procedure TFRemember.Button2Click(Sender: TObject);

var filename, beschreibung:string;
begin

filename :=  Extractfilepath (application.ExeName) + 'test.ini';
if fileexists(filename)  then

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

Zwei Kleinigkeiten dazu:

Den Dateinamen musst du nicht bei jedem Buttonklick auslesen, da er sich nicht ändert. Aber die paar Millisekunden, die das benötigt sind nicht tragisch.

Wenn die Datei nicht existiert, wird bei dir "AddEvent()" dennoch aufgerufen, da dein Code aktuell so interpretiert wird:

Delphi-Quellcode:

if FileExists(filename) then
begin
  Beschreibung := readfromini(filename, 'Myvars', 'Beschreibung') + ' (' + readfromini(filename, 'Myvars', 'Zeit') + ')'+' (' + readfromini(filename, 'Myvars', 'Datum') + ')';
end;
AddEvent(readfromini(filename, 'Myvars', 'Überschrift'), Beschreibung, TreeView1);

Das ist natürlich nicht korrekt. Bei dir muss es so aussehen:

Delphi-Quellcode:

if FileExists(filename) then
begin
  Beschreibung := readfromini(filename, 'Myvars', 'Beschreibung') + ' (' + readfromini(filename, 'Myvars', 'Zeit') + ')'+' (' + readfromini(filename, 'Myvars', 'Datum') + ')';
  AddEvent(readfromini(filename, 'Myvars', 'Überschrift'), Beschreibung, TreeView1);
end;