Verbindung zum Pfad

[Bummi]

INI geht:

Delphi-Quellcode:

  private
    Fsl:TStringList;
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  i:Integer;
begin
 i := FSL.IndexOfName(Edit1.Text);
 if i = -1 then FSL.Add(Edit1.Text + '='+ Edit2.Text)
 else FSL.ValueFromIndex[i] := Edit2.Text;
end;

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  if FSL.IndexOfName(Edit1.Text) > -1 then Edit2.Text := FSL.Values[Edit1.Text];
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  ini:TInifile;
  i:Integer;
begin
  Fsl:=TStringList.Create;
  ini:=TInifile.Create('C:\temp\test.ini');
  ini.ReadSection('Wieauchimmer',Fsl);
  for i := 0  to FSL.Count - 1 do
    FSL[i]:= FSL[i]+'=' + ini.ReadString('Wieauchimmer' , FSL[i],'');

  ini.Free;
end;

procedure TForm1.FormDestroy(Sender: TObject);
var
  ini:TInifile;
  i:Integer;
begin
  ini:=TInifile.Create('C:\temp\test.ini');
  for i := 0  to FSL.Count - 1 do
    ini.WriteString('Wieauchimmer' , FSL.Names[i],FSL.ValueFromIndex[i]);
  ini.Free;
  FSL.Free;
end;