Forum: Object-Pascal / Delphi-Language
Delphi
by implementation,
6. Jan 2009
Es funktioniert längst.
Die WindeskConfig.ini wurde anscheinend vorher erstellt.
Wer weiß, vielleicht war Windows mit dem zusätzlichen Backslash überfordert?
Ich habe noch ein paar Tests gemacht: Das Programm schreibt in die Config.ini
ExtractFilePath liefert also einen Backslash mit.
<--------------------->
Die Verwirrung dürfte nun aufgehoben sein.
Forum: Object-Pascal / Delphi-Language
Delphi
by implementation,
6. Jan 2009
Also ich weiß nicht warum, aber von einer Minute auf die andere funktioniert es.
Jetzt ist in dem Ordner auch eine Config.ini
Au0erdem ist in dem übergeordneten Ordner eine WindeskConfig.ini
Es siehtso aus, als fehle da nur der Backslash (Windesk\Config.ini)
In der WindeskConfig.ini steht der Wert von PaintGreen.
In der Config.ini steht 4812.
Ich bin verwirrt.
Forum: Object-Pascal / Delphi-Language
Delphi
by implementation,
6. Jan 2009
Wie erwartet kam beim ersten 0, beim zweiten 4812 raus.
Aber der Pfad stimmt.
Was ist dann das Problem?
Forum: Object-Pascal / Delphi-Language
Delphi
by implementation,
6. Jan 2009
@Luckie: Der Wert von Workspace (Variable von TColor) soll dem Plan nach im ersten Teil gesetzt werden. Wenn das nicht funktioniert - dann müsste der Wert entweder 0 (Standardwert) oder PaintGreen (angegeben) sein.
@taaktaak: Bei dir funktioniert er? Bei mir nicht. Es scheint also nicht am Code zu liegen.
@DeddyH: Ja, es wird alles angesprungen.
@nahpets: Der sagt mir Workspace sei 0. In...
Forum: Object-Pascal / Delphi-Language
Delphi
by implementation,
5. Jan 2009
Geht immer noch nicht.
Ich hab das OnClick-Event von TGraphicControl benutzt
Forum: Object-Pascal / Delphi-Language
Delphi
by implementation,
5. Jan 2009
initialization
Ini := TIniFile.Create(ExtractFilePath(Application.Exename) + 'Config.ini');
ShowMessage(ExtractFilePath(Application.Exename) + 'Config.ini');
try
Workspace := Ini.ReadInteger('Colors', 'Workspace', PaintGreen);
finally
FreeAndNil(Ini);
end;
finalization
Ini := TIniFile.Create(ExtractFilePath(Application.Exename) + 'Config.ini');
Forum: Object-Pascal / Delphi-Language
Delphi
by implementation,
5. Jan 2009
@Matze: Es wird jetzt eine Meldung ausgegeben, wenn der Code ausgeführt wird.
Und sie erscheint. Der Code wird also aufgerufen.
@Luckie: 1. Was meinst du mit schließen. Es wird FreeAndNil aufgerufen.
Ansonsten nichts.
2. Ich arbeite unter Windows XP, und das Programm ist unter D:
Forum: Object-Pascal / Delphi-Language
Delphi
by implementation,
5. Jan 2009
Der Pfad stimmt.
Und es gibt auch keinen Fehler.
Forum: Object-Pascal / Delphi-Language
Delphi
by implementation,
5. Jan 2009
Nein
Hab ich noch nie gemacht
Ich versuchs mal
-------------------
das hat mich irgendwie nicht weiter gebracht