Hallo Sven,
zur Vorgehensweise bei der Fehlersuche: Wenn die als fehlerhaft bemängelten Zeilen von dir nicht geändert wurden, dann wird der Fehler woanders verursacht - wahrscheinlich an der Stelle, an der du geändert hast.
Und unabhängig davon: Komplexe String-Ausdrücke nicht mehrmals zusammensetzen:
Delphi-Quellcode:
const
FMT_PATH = '%sDATEN\MT%s\X%s.mtt';
var
fn: TFileName;
begin
path := IncludeTrailingPathDelimiter(path); // an geeigneter Stelle einmal ausführen
fn := Format(FMT_PATH, [path, jahr, meldung_dh]);
if FileExists(fn) then
heute.Lines.LoadFromFile(fn);
fn := Format(FMT_PATH, [path, jahr, meldung_dm]);
if FileExists(fn) then
morgen.Lines.LoadFromFile(fn);
// ...
end;
Grüße vom marabu