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

[Matze]

Du solltest versuchen zu verstehen was du da zusammen kopierst, sonst wirst du nie glücklich. Die Variable "Beschreibung" nutzt du in deinem Code nicht. Du weist ihr lediglich einen Wert zu, doch die Ausgabe fehlt.

Denkbar wäre so etwas:

Delphi-Quellcode:

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

Das sollte hinter die Beschreibung in Klammern eingeschlossen die Zeit anfügen.

Oder du machst es untereinander:

Delphi-Quellcode:

procedure AddEvent(EventName: string; EventDescription: string; EventDate: string; TView: TTreeView);
var
  TreeNode: TTreeNode;
begin
  TreeNode := TView.Items.AddFirst(nil, EventName);
  TView.Items.AddChild(TreeNode, EventDescription);
  TView.Items.AddChild(TreeNode, EventDate);
end;

Wie man das aufrufst, kriegst du selbst heraus.

Grüße, Matze

[kingsusu]

Super klappt alles wunderbar.

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);

Dieser Code ist nun richtig. Als Zusatz zeige ich noch das Datum an.

Code für Datum.

Delphi-Quellcode:

 WriteToIni (Filename,'Myvars','Datum',DateToStr(pickerdatum.date));

Danke für die Hilfe Leute! :) :hello: :party:

[edit=Matze][delphi]-Tags repariert. MfG, Matze[/edit]

[Matze]

Zitat:

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;