1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

procedure TForm1.Button1Click(Sender: TObject); //speichern
var
  MyIni: TIniFile;
  i: Integer;
begin
  MyIni := TIniFile.Create('C:\Windows\Profiles\Slidermike\Desktop\Test.ini');
  try
    for i := 1 to 5 do //"Zahl" des letzten Edits
      MyIni.WriteString('Section_1','Edit' + IntToStr(i),TEdit(FindComponent('Edit' + IntToStr(i))).Text);
  finally
    MyIni.Free;
  end;
end; 

procedure TForm1.Button2Click(Sender: TObject); //laden
var
  MyIni: TIniFile;
  i: Integer;
begin
  MyIni := TIniFile.Create('C:\Windows\Profiles\Slidermike\Desktop\Test.ini');
  try
    i := 1;
    while MyIni.ValueExists('Section_1','Edit' + IntToStr(i)) do
    begin
      TEdit(FindComponent('Edit' + IntToStr(i))).Text := MyIni.ReadString('Section_1','Edit' + IntToStr(i),'kA');
      Inc(i);
    end;

  finally
    MyIni.Free;
  end;
end;                    

1:

button1.caption := MyIni.readvalue(......);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

[Beschreibung]
1=blubb
2=blabb
3=....

[Shell]
1=c:\command.com
2=sol.exe
3=....                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:

unit Unit5;

interface

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

type
  TForm5 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    Edit16: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Edit17: TEdit;
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm5.Button3Click(Sender: TObject);
begin
  Form5.Close;
  Form2.Show;
end;

procedure TForm5.Button1Click(Sender: TObject);
var
  MyIni: TIniFile;
  i: Integer;
begin
  MyIni := TIniFile.Create(Edit17.Text+'configuration.ini');
  try
    for i := 1 to 17 do //"Zahl" des letzten Edits
      MyIni.WriteString('Programm-Pfad','Pfad' + IntToStr(i),TEdit(FindComponent('Edit' + IntToStr(i))).Text);
    for i := 18 to 36 do
      MyIni.WriteString('Programmname','Name' + IntToStr(i),TEdit(FindComponent('Edit' + IntToStr(i))).Text);
  finally
    MyIni.Free;
  end;
end;

end.                    

1:

MyIni := TIniFile.Create(Edit17.Text+'configuration.ini');                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure TForm5.Button4Click(Sender: TObject);
var
  MyIni: TIniFile;
  i: Integer;
begin
  MyIni := TIniFile.Create(Edit17.Text+'\configuration.ini');
  try
    i := 1;
    while MyIni.ValueExists('Programmname','Name' + IntToStr(i)) do
    begin
      TEdit(FindComponent('Name' + IntToStr(i))).Text := MyIni.ReadString('Programmname','Name' + IntToStr(i),'kA');
      Inc(i);
    end;

  finally
    MyIni.Free;
  end;
end;                    

1:

 ProgDir  :=ExtractFilePath(ParamStr(0));                    

1:

MyIni := TIniFile.Create(ProgDir+'configuration.ini');                    

1:
2:
3:
4:

Pfad:='C:\';
If FileExists(Pfad+'Schießmichtot.doc')
Then ShowMessage('Schießmichtot.doc existiert..')
Else ShowMessage('Schießmichtot.doc existiert nicht..');                    

1:
2:

var
 Pfad: String;                    

1:

ForceDirectories('C:\Programme\Mein Programm\Unterordner');                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

begin
 ForceDirectories('C:\Programme\Progg-Starter\Configuration');
 ForceDirectories('C:\Programme\Progg-Starter\Names');
 ini := TIniFile.Create('C:\Programme\Progg-Starter\Configuration\Configuration_01.ini');
 try
 ini.WriteString('Programm_01', 'Path', 'This is not a path');
 finally
 ini.free;
 end;
 ini := TIniFile.Create('C:\Programme\Progg-Starter\Names\Name_01.ini');
 try
 ini.WriteString('Programmname_01', 'Name', 'Dieses hier solls sein';
 finally
 ini.free;
 end;
end;                    

1:

ini.WriteString('Programmname_01', 'Name', 'TextFeld1.Text');                    

1:

ini.WriteString('Programmname_01', 'Name', Edit.Text);                    

1:

ini.WriteString('Programmname_01', 'Name', TextFeld1.Text);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.Button1Click(Sender: TObject);
var
ini: TIniFile;
res: String;
begin
ini:=TIniFile.Create('C:\Programme\Progg-Starter\Configuration\Configuration_01.ini');
try
res:=ini.ReadStrin('Programm_01', {hier die Funktion zum auslesen});
ShellExecute(Aplicatoin.Handle, 'open, {hier der Progg-Pfad aus der INI} , nil, nil, SW_SHOW);
finally
ini.free;
end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.Button1Click(Sender: TObject); 
var 
ini: TIniFile; 
res: String; 
begin 
ini:=TIniFile.Create('C:\Programme\Progg-Starter\Configuration\Configuration_01.ini'); 
try 
  res:=ini.ReadString('Programm_01', {hier die Funktion zum auslesen}); 
  ShellExecute(Aplicatoin.Handle, res , nil, nil, SW_SHOW); 
finally 
ini.free; 
end; 
end;