Eigene Skins / Eigene Progis

[Stanlay Hanks]

Hi.

Naja, Fehler dürfte dein Code nicht erzeugen. Aber bringen wird er auch nicht viel, da deine Ergebnisse praktisch ins leere laufen

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
ini := TIniFile.Create('skin.ini'); (1)
try
ini.ReadString('PICTURES', 'picture', 'dialog.bmp'); (2)
finally
ini.Free; (3)
end;

Du erzeugst die Datei (1) richtig und gibst sie auch richtig frei. (3)
Aber dazwischen liest du etwas aus der INI aus (2). Und diese Ergebnisse laufen ins leere, da sie nirgendwo zwischengespeichert werden. Ich vermute mal, du möchtest die Zeichenkette (String) aus der Section [PICTURES] und dem darinenthaltenen Eintrag picture= auslesen, oder? Dann müsstest du noch eine Variable deklarieren, um überhaupt mit diesem String arbeiten zu können. Ansonsten ist er praktisch "vergessen"

Beispiel:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var str : String;
begin
ini := TIniFile.Create('skin.ini');
try
str := ini.ReadString('PICTURES', 'picture', 'dialog.bmp');  //str erhält den Wert aus der INI
finally
ini.Free; 

ShowMessage(str); // Der String wird als Meldung angezeigt (nur als Beispiel)
end;

Man liest sich, Stanlay