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:
71:
72:
73:
74:

type
  TStringDynArray = array of String;
  TZStringArr = array[0..30] of String;     //Array der Zeilen

var
  MySList: TStringList;
  X: Integer; 
// Für INIlesen
var F, BN, Name, Byte, Format, Bereich, KonvertFormat : String;
// Für INI öffnen und Lesen
var datei: String;
//für zeilenlauf
var z : Integer;
implementation

uses Unit2;

{$R *.dfm}

{-----------------------------------------------------------------------------
  Procedure : INI auswählen und öffnen
  Version   : Alfa

  Resultat    : Gibt die Möglichkeit entsprechende INI auszusuchen
-----------------------------------------------------------------------------}
procedure INIoeffnen;
begin
    with Form1 do
    if opendialog1.execute then
      datei := opendialog1.FileName

      else datei := '';
end;

{-----------------------------------------------------------------------------
  Procedure : Aus INI lesen
  Version   : Alfa

  Resultat    : Zerstückelter String im Array zur weiteren Verarbeitung
-----------------------------------------------------------------------------}

procedure INIlesen;
var //datei, rein: String; //wurden wegen lesen & verarbeiten als global deklariert
//Global Definiert  F, BN, Name, Byte, Format, Bereich, KonvertFormat
    //ini : TIniFile;
    exparr: TStringDynArray;
    zeilenarr : TZStringArr;

begin
     // testen wir mal mit dem TString den Zugriff auf die ini

    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;


    exparr := Unit2.explode('||', zeilenarr[z]);

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

end;					

1:

MySList.Count					

1:

MySList.Free;					

1:

exparr := Unit2.explode('||', zeilenarr[z]);					

1:

exparr := Unit2.explode('||', MySList.Strings[z]);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

procedure INIlesen;  
var 
  //datei, rein: String; //wurden wegen lesen & verarbeiten als global deklariert  
  //Global Definiert  F, BN, Name, Byte, Format, Bereich, KonvertFormat  
  //ini : TIniFile;  
  exparr: TStringDynArray;  
begin  
  // testen wir mal mit dem TString den Zugriff auf die ini  
  MySList := TStringList.Create;  
  MySList.LoadFromFile(datei);  

  exparr := Unit2.explode('||', MySList[z]);  
 
  F := exparr[0];  
  BN := exparr[1];  
  Name := exparr[2];  
  Byte := exparr[3];  
  Format := exparr[4];  
  Bereich := exparr[5];  
  KonvertFormat := exparr[6];  

  MySList.Free; 
end;