Mehr Mysterien:
Delphi-Quellcode:
FindFirst(ExtractFilePath(Application.ExeName), faAnyFile, F);
try
repeat
showmessage(LowerCase(ExtractFileExt(F.Name)));
if LowerCase(ExtractFileExt(F.Name)) = '.dfp' then
ProfileReader.ReadProfile(F.Name);
until FindNext(F) <> 0;
finally
FindClose(F);
end;
Führt nur zu einer einzigen leeren ShowMessage-Box.
Im Verzeichnis ist eine einzige dfp-Datei (Balanced.dfp), die anscheinend richtig importiert wird.
/edit:
Ok, das lag an der Zeile:
ReadProfile(ExtractFilePath(ParamStr(0)) + 'Balanced.dfp');
edit/
Zitat von
jim_raynor:
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
Das Create wird zuerst aufgerufen.