Einzelnen Beitrag anzeigen

Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#32

AW: Firemonkey abspeichern (iOS)

  Alt 7. Aug 2014, 11:43
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)
  Mit Zitat antworten Zitat