1:
2:

[Benutzer]
Trainingsdaten=markus.kal					

1:

sDatei:=IniFile.ReadString('Benutzer', 'Trainingsdaten', 'unbekannt.kal');					

1:

AssignFile(fDatei,sDatei);					

1:

[Fehler] Unit1.pas(141): Inkompatible Typen: 'String' und 'Text'					

1:
2:
3:
4:
5:

Inhalt von config.ini:

[Benutzer]
Name=Markus Saalwaechter
Trainingsdaten=markus.kal					

1:
2:

fDatei: file of recKalender;         //Datei
sDatei: String;                      //Dateiname					

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

procedure TForm_Haupt.Ini_Laden;
  var IniFile: TIniFile;
begin
  IniFile:=TIniFile.Create(ExtractFilePath(ParamStr(0))+ 'config.ini');
  try
    sBenutzer:=IniFile.ReadString('Benutzer', 'Name', 'unbekannt');
    sDatei:=IniFile.ReadString('Benutzer', 'Trainingsdaten', 'unbekannt.kal');
  finally
    IniFile.Free;
  end;
end;					

1:
2:
3:
4:
5:

AssignFile(fDatei,sDatei);
  if FileExists(fDatei) then
    Reset(fDatei)
  else
    Rewrite(fDatei);					

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

AssignFile(fDatei,sDatei);
ShowMessage(fDatei);
  if FileExists(fDatei) then
    Reset(fDatei)
  else
    Rewrite(fDatei);