Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Mystic,
1. Nov 2005
Mehr Mysterien:
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
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Mystic,
1. Nov 2005
Ähh.. hier stimmt was ganz gewaltig nicht.
Die IF-Bedingung sollte zwar nie wahr werden (wie du sagtest), aber sie wird IMMER wahr, egal was ich als string hinter dem = angebe.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Mystic,
1. Nov 2005
Welches OnActionExecute-Event?
Ich rufe es im OnExecute der Aktion auf.
Wie gesagt, wenn ich WriteBinaryValue aus dem OnCreate des Hauptformulars aufrufe, funktioniert alles.
Wenn ich WriteProfile im OnCreate aufrufe, kommt wieder der gleiche Mist.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Mystic,
1. Nov 2005
Hab ich schon probiert. Keys = nil.
Seltsamerweise klappt es ja, wenn ich WriteBinaryValue im OnCreate von MainForm (nach dem TProfileWriter.Create) aufrufe.
Keys wird nur im Destruktor von TProfileWriter freigegeben.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Mystic,
1. Nov 2005
Keys wird im Konstruktor von TProfileWriter erstellt.
constructor TProfileWriter.Create;
begin
inherited;
Reg := TRegistry.Create;
Keys := TStringList.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
FindKeys;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Mystic,
1. Nov 2005
Ja.
procedure TMainForm.FormCreate(Sender: TObject);
var
F: TSearchRec;
i: integer;
item: TListItem;
begin
ProfileWriter := TProfileWriter.Create;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Mystic,
1. Nov 2005
Ich habe eine Klasse TProfileWriter zum Massenschreiben von Registryeinträgen.
TProfileWriter = class
private
Reg: TRegistry;
Keys: TStringList;
procedure FindKeys;
public
constructor Create;
destructor Destroy; override;