Forum: Object-Pascal / Delphi-Language
Delphi
by Matze,
26. Dez 2009
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:
if FileExists(filename) then
begin
Beschreibung := readfromini(filename, 'Myvars',...
Forum: Object-Pascal / Delphi-Language
Delphi
by Matze,
25. Dez 2009
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:
Beschreibung := readfromini(filename, 'Myvars', 'Beschreibung') + ' (' + readfromini(filename, 'Myvars', 'Zeit') + ')';
AddEvent(readfromini(filename,...
Forum: Object-Pascal / Delphi-Language
Delphi
by Matze,
25. Dez 2009
Natürlich.
Und lass die Crossposts am Besten komplett sein. Mit oder ohne Link, ich persönlich schreibe in diesen Themen aus Prinzip schon selten.
Forum: Object-Pascal / Delphi-Language
Delphi
by Matze,
25. Dez 2009
Am Besten erstellst du erst Crossposts, wenn in einem Thema nach 12 Stunden noch keine Antwort da ist. Da vergeht mir komplett die Lust zu helfen, daher halte ich mich nun auch sehr kurz. :?
// Hinzufügen von Terminen
procedure AddEvent(EventName: string; EventDescription: string; TView: TTreeView);
var
TreeNode: TTreeNode;
begin
TreeNode := TView.Items.AddFirst(nil, EventName);
...
Forum: Object-Pascal / Delphi-Language
Delphi
by Matze,
24. Dez 2009
Hallo Kingsusu,
Soll sich der Text des Eintrags ändern, wenn du ihn anklickst? Habe ich das richtig verstanden?
Für dein Vorhaben würde ich eher zu einem TreeView tendieren. Das ist das, was der Windows-Explorer nutzt, um die Verzeichnisse anzuzeigen.
Da kannst du die Überschriften darstellen und wenn man auf das zugehörige Plus-Zeichen klickt, klappt der Beschreibungstext auf.
Edit: Bild...