Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by jim_raynor,
1. Nov 2005
Du kannst bei FindFirst auch mit Erweiterung suchen, dann sparst du dir die Abfrage:
FindFirst(ExtractFilePath(Application.ExeName)+'*.dfp', faAnyFile, F);
(Kann sein, dass du vor dem Sternchen noch ein \ machen musst. Weiss jetzt nicht ob ExtractFilePath den Pfad mit oder ohne Backslash zurückgibt.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by jim_raynor,
1. Nov 2005
Kann mir eigentlich nur vorstellen, dass ProfileApplyExecute vor dem FormCreate aufgerufen wird. Schon mal haltepunkt in Zeile 55 und 111 (nach dem Listing im Forum) gesetzt, und geschaut was zuerst aufgerufen wird?
P.S: Die IF-Bedingung kann nicht wahr werden, da du den String in klein-Buchstaben konvertierst und mit Groß-Buchstaben vergleichst ;)
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by jim_raynor,
1. Nov 2005
Solangsam deutet alles darauf hin, dass du doch nicht korrekt eine Instanz von TProfileWrite erzeugst.