1:
2:
3:
4:
5:
6:

var  slListe: TStrings;

begin
  slListe := TStringList.create;
  slListe.LoadFromFile(Filenamen: String);
end;					

1:
2:
3:
4:
5:
6:

var i: Integer;

For i := 0 to slListe.count -1 do
begin
  showmessage(slListe[i]);
end;					

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

procedure IniLesen;
var
  iIni  : TIniFile;
  iw   : integer;
  sw  : string;
begin
  iIni := TIniFile.Create( DeinPfadundName );
  try
    sw := iIni.ReadString('Deine Section', 'Spiele', '');
    iw := iIni.ReadInteger('Deine Section', 'Spielezahl', 0);
  finally
    iIni.Free;
  end;
end;