Du hast mindestens zwei Fehler in deinem Code.
Fehler 1:
wenn du einen Dateinamen aus mehreren Teilen zusammensetzt, dann achte darauf, dass es immer eine
Zwischenvariable gibt.
Delphi-Quellcode:
function LadeSpio(Pfad: string): String;
var Spio: TStringList;
dateiname:string;
begin
dateiname := 'F:\Eigene Dateien\Ordner1\' + Pfad + '\Spionageberichte.txt';
Nur mit der Zwischenvariable kannst du herausfinden, ob der Dateiname inkl. Pfad wirklich in Ordnung ist
Fehler 2:
deine Fehlermeldung ist ziemlich "gaga".
Gib dem Benutzer eine Fehlermeldung mit der er auch wirklich etwas anfangen kann.
Zwingend notwendig wäre hier der volle Dateiname!
Delphi-Quellcode:
try
Spio.LoadFromFile(dateiname);
except
on E:
Exception do
begin
E.
Message := '
Spionagebericht kann nicht geladen werden'#13#10+
'
Die Datei '+dateiname+'
ist nicht vorhanden. Bitte eventuell den Dateipfad nachprüfen.'#13#10+
E.
Message;
raise;
end;
end;