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

[F1]
BN=0
Name=RFS
Byte=6
Format=ASCII
Bereich=6
[F2]
BN=6
Name=WGR
Byte=1
Format=Hex
Bereich=1..7

...					

1:
2:
3:
4:

Funktion/BN/Name/Byte/Format/Bereich
F1/0/RFS/6/ASCII/6
F2/6/WGR/1/Hex/1..7
...					

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:

procedure TForm1.Button1Click(Sender: TObject);
var datei, z, rein, BN, Name, Byte, Format, Bereich : string;
    ini : TIniFile;
    exparr: TStringDynArray;
    zeilenarr : TStringDynArray;

begin
     // testen wir mal mit dem TString den Zugriff auf unsere ini
    if opendialog1.execute then
    datei := opendialog1.FileName

    else datei := '';

    begin
    MySList := TStringList.Create;
    MySList.LoadFromFile(datei);

    //Schau mer mal wies mit den einzelen Zeilen aussieht
    for X := 0 to MySList.Count-1 do
    zeilenarr[x] := MySList.Strings[x];
    

    MySList.Free;
    end;
end;					

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:

procedure TForm1.Button1Click(Sender: TObject);
var datei, F, BN, Name, Byte, Format, Bereich : String;
    exparr: TStringDynArray;
    zeilenarr : TZStringArr;


begin
     // testen wir mal mit dem TString den Zugriff auf die ini
    if opendialog1.execute then
    datei := opendialog1.FileName

    else datei := '';

    begin
    MySList := TStringList.Create;
    MySList.LoadFromFile(datei);

    //Schau mer mal wies mit den einzelen Zeilen aussieht
    for X := 0 to MySList.Count-1 do
    zeilenarr[x] := MySList.Strings[x];

    MySList.Free;
    end;


    Folgendes nur für Testzwecke, später sicher NICHT so gelöst!
    exparr := explode('||', zeilenarr[5]);

    F := exparr[0];
    BN := exparr[1];
    Name := exparr[2];
    Byte := exparr[3];
    Format := exparr[4];
    Bereich := exparr[5];


    label1.Caption := 'Funktion:' + F;
    label2.Caption := 'Byte_Nr :' + BN;
    label3.Caption := 'Name    :' + Name;
    label4.Caption := 'Bytes   :' + Byte;
    label5.Caption := 'Format  :' + Format;
    label6.Caption := 'Bereich :' + Bereich;

end;

end.					

1:
2:
3:
4:
5:

if opendialog1.Execute then
begin
  // der Stringlist-Kram
  { ... }
end;