Nur mal so zum Code allgemein:
Das Verwenden von MagicValues
'profil.txt'
an mehreren Stellen im QuellCode ist eine schöne potentielle Fehlerquelle.
Definiere dir dafür einfach eine Konstante und benutze diese.
Delphi-Quellcode:
const
PROFIL_TXT = 'profil.txt';
procedure THeaderFooterwithNavigation.FormCreate(Sender: TObject);
...
//Profil.LoadFromFile(TPath.GetDocumentsPath+TPath.DirectorySeparatorChar+'profil.txt');
Profil.LoadFromFile( TPath.GetDocumentsPath + TPath.DirectorySeparatorChar + PROFIL_TXT );
...
procedure THeaderFooterwithNavigation.B_speichernoptionenClick(Sender: TObject);
...
//Profil.SaveToFile(TPath.GetDocumentsPath+TPath.DirectorySeparatorChar+'profil.txt');
Profil.SaveToFile( TPath.GetDocumentsPath + TPath.DirectorySeparatorChar + PROFIL_TXT );
...
Das sind doch beide die gleichen Quellcodes gewesen, nur dass der für das Laden des Profils im "FormCreate" war, anstatt wie bei Einstellungen.txt auf einem Button.
Du hast bestimmt Recht, schließlich haben wir den Fehler auch nicht gefunden sondern du. Wir sind halt einfach blind
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ea 0a 4c 14 0d b6 3a a4 c1 c5 b9
dc 90 9d f0 e9 de 13 da 60)