Eigene Skins / Eigene Progis

[delphi-dw]

Nochmal ein Frage zu diesem Code

zwischen try (...) finally

Beispiel: var1 := ini.ReadString('', '', '');

gibt es eine möglichkeit die gesamte Ini auszulesen oder muss das
alles von hand gemacht werden, das heißt:

var1 := ini.ReadString('', '', ''); ca. 200 mal


Hier kommt noch was!

Ich habe mir schon einmal die Mühe gemacht und habe das alles geschrieben nur es funktioniert nicht, ich glaube jetzt habe ich alles durcheinander gewurfen des wegen kopiere ich euch mal den ganzen code hier rein

--- --- ---

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IniFiles, StdCtrls;

type
  TForm1 = class(TForm)
    StaticText1: TStaticText;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  ini: TIniFile;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var var1 :  String;      var var19 : String;      var var37 : String;
var var2 :  String;      var var20 : String;      var var38 : String;
...
var92 := ini.ReadString('caption', 'frametextrect', '0,0,0,0');
var93 := ini.ReadString('caption', 'frameleftoffset', '0');
var94 := ini.ReadString('caption', 'framerightoffset', '0');
var95 := ini.ReadString('SKINCONTROLS', 'Count', '0');
finally
  ini.Free;
  end;
end;
end.

wer kann mir sagen warum es nicht klappt! ????

[edit=Luckie]Delphi-Tags gesetzt und etwas gekürzt. Mfg, Luckie[/edit]