Firemonkey abspeichern (iOS)

**ZeroX1337**

Zitat von Sir Rufo:

Zeige uns per CopyPaste den Quelltext der Methode FormCreate .
Meinst du das wäre machbar?

Bitte kein Sarkasmus.

Kleinen Moment bitte. Muss das erst noch mal schreiben. Das ist ja eine andere Textdatei.

Zitat von matthiaskary:

Hallo,
was du auch mal probieren kannst, das ganze im FormShow anstelle
vom FormCreate zu laden.

Werde ich gleich auch mal versuchen, danke.

**ZeroX1337**

Speichern Profil: Nur die ersten Zeilen sind interessant, das andere sind die verschiedenen Sprachen.

zusammenfalten · markieren

Delphi-Quellcode:

			procedure THeaderFooterwithNavigation.B_speichernoptionenClick(Sender: TObject);

var

    Profil: TStringList;

begin

   Profil := TStringList.Create;

   Profil.Add(E_vorname.text);

   Profil.Add(E_nachname.text);

   Profil.SaveToFile(TPath.GetDocumentsPath+TPath.DirectorySeparatorChar+'profil.txt');

  //Hintergrund Bild

    if  C_hintergrundbild.ItemIndex = 0 then

          HintergrundBlur.Visible := True;

    if  C_hintergrundbild.ItemIndex = 1 then

          begin

          HintergrundBlur.Visible := False;

          HintergrundWeiß.Visible := True;

          end;

    if  C_hintergrundbild.ItemIndex = 2 then

          begin

          HintergrundBlur.Visible := False;

          HintergrundWeiß.Visible := False;

          end;

  // Techniker Name Übertragen

  HeaderFooterwithNavigation.E_Servicetechniker.text := ( E_vorname.Text + ' ' + E_nachname.Text );

  // Sprache Englisch

if C_Sprache.ItemIndex = 1 then

  begin

  HeaderFooterwithNavigation.Tab_anreise.Text := 'Arrival';

  HeaderFooterwithNavigation.Tab_arbeit.Text := 'Work';

  HeaderFooterwithNavigation.Tab_rückreise.Text := 'Way back';

  HeaderFooterwithNavigation.L_datum.Text := 'Date';

  HeaderFooterwithNavigation.L_arbeitsbeginn.Text := 'Start of work';

  HeaderFooterwithNavigation.L_arbeitsende.Text := 'Work finished';

  HeaderFooterwithNavigation.L_arbeitsstd.Text := 'Work total';

  HeaderFooterwithNavigation.L_gesamtstd.Text := 'Total hours';

  HeaderFooterwithNavigation.L_warte.Text := 'Wait';

  HeaderFooterwithNavigation.L_mo.Text := 'Mon';

  HeaderFooterwithNavigation.L_di.Text := 'Tue';

  HeaderFooterwithNavigation.L_mi.Text := 'Wed';

  HeaderFooterwithNavigation.L_do.Text := 'Thr';

  HeaderFooterwithNavigation.L_fr.Text := 'Fri';

  HeaderFooterwithNavigation.L_sa.Text := 'Sat';

  HeaderFooterwithNavigation.L_so.Text := 'Sun';

  HeaderFooterwithNavigation.L_montagesundennachweis.Text := 'TIME-SHEET';

  HeaderFooterwithNavigation.L_auftragnr.Text := 'Order no.:';

  HeaderFooterwithNavigation.L_montagebeifirma.Text := 'Company name:';

  HeaderFooterwithNavigation.L_maschinentyp.Text := 'Machine type:';

  HeaderFooterwithNavigation.L_artderarbeit.Text := 'Kind of work:';

  HeaderFooterwithNavigation.L_Servicetechniker.Text := 'Technician:';

  HeaderFooterwithNavigation.L_Land.Text := 'Country:';

  HeaderFooterwithNavigation.L_Komnr.Text := 'Com. No.:';

  HeaderFooterwithNavigation.L_Montagezeiten.Text := 'Assembly';

  HeaderFooterwithNavigation.L_vonbis.Text := 'carried out:';

  HeaderFooterwithNavigation.L_bestätigung.Text := 'The customer herewith confirms the legally acceptance of the machine and/or the installation of same above time listing.';

  HeaderFooterwithNavigation.L_auftraggeber.Text := 'Customer';

  HeaderFooterwithNavigation.L_Monteur.Text := 'Technician';

  HeaderFooterwithNavigation.btnBack.Text := 'Back';

  HeaderFooterwithNavigation.B_zurücksetzen.Text := 'Clear fields';

  HeaderFooterwithNavigation.B_verschicken.Text := 'Send';

  HeaderFooterwithNavigation.B_laden.Text := 'Load';

  HeaderFooterwithNavigation.B_speichern.Text := 'Save';

  HeaderFooterwithNavigation.L_datumanreise.Text := 'Date';

  HeaderFooterwithNavigation.L_Reisebeginnanreise.Text := 'Begin';

  HeaderFooterwithNavigation.L_Reiseendeanreise.Text := 'End';

  HeaderFooterwithNavigation.L_zvanreise.Text := 'TS';

  HeaderFooterwithNavigation.L_reisestdanreise.Text := 'Hours';

  HeaderFooterwithNavigation.L_datumrückreise.Text := 'Date';

  HeaderFooterwithNavigation.L_Reisebeginnrückreise.Text := 'Begin';

  HeaderFooterwithNavigation.L_Reiseenderückreise.Text := 'End';

  HeaderFooterwithNavigation.L_zvrückreise.Text := 'TS';

  HeaderFooterwithNavigation.L_reisestdrückreise.Text := 'Hours';

  HeaderFooterwithNavigation.L_durchgeführtearbeiten.Text := 'Action taken, Remarks';

  HeaderFooterwithNavigation.L_benötigteersatzteile.Text := 'Parts required';

  HeaderFooterwithNavigation.L_Optionenoptionen.Text := 'Options';

  HeaderFooterwithNavigation.L_technikeroptionen.Text := 'Technician:';

  HeaderFooterwithNavigation.L_spracheoptionen.Text := 'Language:';

  HeaderFooterwithNavigation.L_hintergrundbildoptionen.Text := 'Background:';

  HeaderFooterwithNavigation.L_nachnameoptionen.Text := 'Last name';

  HeaderFooterwithNavigation.L_vornameoptionen.Text := 'First name';

  HeaderFooterwithNavigation.B_speichernoptionen.Text := 'Save';

  HeaderFooterwithNavigation.B_abbrechenoptionen.Text := 'Cancel';

  L_unterschriftinfo.Text := 'Enter your signature here!';

  L_unterschrift.Text := 'Signature';

  B_speichernunterschriftauftraggeber.text := 'Save';

  B_abbrechenunterschrift.text := 'Cancel';

  L_neu.text := 'New';

  B_speichernunterschriftmonteur.text := 'Save';

  B_abbrechenunterschriftmonteur.text := 'Cancel';

  B_neumonteur.text := 'New';

  B_optionen.Text := 'Options'

  end;

  // Sprache Deutsch

if C_Sprache.ItemIndex = 0 then

begin

  HeaderFooterwithNavigation.Tab_anreise.Text := 'Anreise';

  HeaderFooterwithNavigation.Tab_arbeit.Text := 'Arbeit';

  HeaderFooterwithNavigation.Tab_rückreise.Text := 'Rückreise';

  HeaderFooterwithNavigation.L_datum.Text := 'Datum';

  HeaderFooterwithNavigation.L_arbeitsbeginn.Text := 'Arbeitsbeginn';

  HeaderFooterwithNavigation.L_arbeitsende.Text := 'Arbeitsende';

  HeaderFooterwithNavigation.L_arbeitsstd.Text := 'Arbeitsstd.';

  HeaderFooterwithNavigation.L_gesamtstd.Text := 'Gesamtstd.';

  HeaderFooterwithNavigation.L_warte.Text := 'Warte';

  HeaderFooterwithNavigation.L_mo.Text := 'Mo';

  HeaderFooterwithNavigation.L_di.Text := 'Di';

  HeaderFooterwithNavigation.L_mi.Text := 'Mi';

  HeaderFooterwithNavigation.L_do.Text := 'Do';

  HeaderFooterwithNavigation.L_fr.Text := 'Fr';

  HeaderFooterwithNavigation.L_sa.Text := 'Sa';

  HeaderFooterwithNavigation.L_so.Text := 'So';

  HeaderFooterwithNavigation.L_montagesundennachweis.Text := 'Montage-Stunden-Nachweis';

  HeaderFooterwithNavigation.L_auftragnr.Text := 'Auftrag Nr.:';

  HeaderFooterwithNavigation.L_montagebeifirma.Text := 'Montage bei Firma:';

  HeaderFooterwithNavigation.L_maschinentyp.Text := 'Maschinentyp:';

  HeaderFooterwithNavigation.L_artderarbeit.Text := 'Art der Arbeit:';

  HeaderFooterwithNavigation.L_Servicetechniker.Text := 'Servicetechniker:';

  HeaderFooterwithNavigation.L_Land.Text := 'Land:';

  HeaderFooterwithNavigation.L_Komnr.Text := 'Kom. Nr.:';

  HeaderFooterwithNavigation.L_Montagezeiten.Text := 'Montagezeiten:';

  HeaderFooterwithNavigation.L_vonbis.Text := '(von/bis)';

  HeaderFooterwithNavigation.L_bestätigung.Text := 'Hiermit bestätigt der Auftraggeber die rechtsverbindliche Abnahme der Maschine und/oder der ausgeführten Montagearbeiten sowie die Richtigkeit der vorstehenden Aufstellung.';

  HeaderFooterwithNavigation.L_auftraggeber.Text := 'Auftraggeber';

  HeaderFooterwithNavigation.L_Monteur.Text := 'Monteur';

  HeaderFooterwithNavigation.btnBack.Text := 'Zurück';

  HeaderFooterwithNavigation.B_zurücksetzen.Text := 'Felder zurücksetzen';

  HeaderFooterwithNavigation.B_verschicken.Text := 'Verschicken';

  HeaderFooterwithNavigation.B_laden.Text := 'Laden';

  HeaderFooterwithNavigation.B_speichern.Text := 'Speichern';

  HeaderFooterwithNavigation.L_datumanreise.Text := 'Datum';

  HeaderFooterwithNavigation.L_Reisebeginnanreise.Text := 'Reisebeginn';

  HeaderFooterwithNavigation.L_Reiseendeanreise.Text := 'Reiseende';

  HeaderFooterwithNavigation.L_zvanreise.Text := 'ZV';

  HeaderFooterwithNavigation.L_reisestdanreise.Text := 'Reisestunden';

  HeaderFooterwithNavigation.L_datumrückreise.Text := 'Datum';

  HeaderFooterwithNavigation.L_Reisebeginnrückreise.Text := 'Reisebeginn';

  HeaderFooterwithNavigation.L_Reiseenderückreise.Text := 'Reiseende';

  HeaderFooterwithNavigation.L_zvrückreise.Text := 'ZV';

  HeaderFooterwithNavigation.L_reisestdrückreise.Text := 'Reisestunden';

  HeaderFooterwithNavigation.L_durchgeführtearbeiten.Text := 'Durchgeführte Arbeiten, Bemerkungen';

  HeaderFooterwithNavigation.L_benötigteersatzteile.Text := 'Benötigte Ersatzteile';

  HeaderFooterwithNavigation.L_Optionenoptionen.Text := 'Optionen';

  HeaderFooterwithNavigation.L_technikeroptionen.Text := 'Techniker:';

  HeaderFooterwithNavigation.L_spracheoptionen.Text := 'Sprache:';

  HeaderFooterwithNavigation.L_hintergrundbildoptionen.Text := 'Hintergrundbild:';

  HeaderFooterwithNavigation.L_nachnameoptionen.Text := 'Nachname';

  HeaderFooterwithNavigation.L_vornameoptionen.Text := 'Vorname';

  HeaderFooterwithNavigation.B_speichernoptionen.Text := 'Speichern';

  HeaderFooterwithNavigation.B_abbrechenoptionen.Text := 'Abbrechen';

  L_unterschriftinfo.Text := 'Setzen Sie hier Ihre Unterschrift!';

  L_unterschrift.Text := 'Unterschrift';

  B_speichernunterschriftauftraggeber.text := 'Speichern';

  B_abbrechenunterschrift.text := 'Abbrechen';

  L_neu.text := 'Neu';

  B_speichernunterschriftmonteur.text := 'Speichern';

  B_abbrechenunterschriftmonteur.text := 'Abbrechen';

  B_neumonteur.text := 'Neu';

  B_optionen.Text := 'Optionen'

end;

  P_optionen.Visible := false;

  HintergrundSchwarz.Visible := false;

HintergrundSchwarzTop.Visible := false;

HintergrundSchwarzBot.Visible := false;

end;

Laden Profil:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure THeaderFooterwithNavigation.FormCreate(Sender: TObject);

var

    ende, start: TDateTime;

    Daten: TStringList;

    Profil: TStringList;

begin

  { This defines the default active tab at runtime }

  TabControl1.First(TTabTransition.ttNone);

  Tab_Formular.TabIndex := 1;

  //Montagezeit initialisierung

  D_montagezeitvon.Date := Date();

  D_datummo.date := StartOfTheWeek(D_montagezeitvon.date);

  D_montagezeitbis.Date := D_datummo.Date + 6;

  D_datumdi.Date := D_datummo.Date +1;

  D_datummi.Date := D_datummo.Date +2;

  D_datumdo.Date := D_datummo.Date +3;

  D_datumfr.Date := D_datummo.Date +4;

  D_datumsa.Date := D_datummo.Date +5;

  D_datumso.Date := D_datummo.Date +6;

  //Optionen Feld wird ausgeblendet bei Start

  P_optionen.Visible := false;

  //HintergrundSchwarz wird bei Start ausgeblendet

  HintergrundSchwarz.Visible    := false;

  HintergrundSchwarzTop.Visible := false;

  HintergrundSchwarzBot.Visible := false;

  // Für Unterschrift

  Signature:= TList<TSigCapRec>.Create;

  P_unterschrift.Visible := false;

  // Für Unterschrift Auftraggeber

  Image_UnterschriftAuftraggeber.Bitmap.Assign(R_UnterschriftAuftraggeber.MakeScreenshot);

  // Für Unterschrift Monteur

  Image_UnterschriftMonteur.Bitmap.Assign(R_UnterschriftAuftraggeber.MakeScreenshot);

  //Profil laden

  Profil := TStringList.Create;

  Profil.LoadFromFile(TPath.GetDocumentsPath+TPath.DirectorySeparatorChar+'profil.txt');

  E_servicetechniker.Text := Profil[0] + Profil[1];

end;

**Sir Rufo**

Bin ich jetzt der Einzige, der sich denkt, was hat #27 mit #22 zu tun

Was sagt der Debugger, in welcher Zeile verabschiedet sich das Programm?
(zieh jedes Haar einzeln aus der Nase)

PS Wenn du keinen Sarkasmus magst, dann poste doch selbständig alle relevanten Informationen zur Frage

**ZeroX1337**

Zitat von Sir Rufo:

Bin ich jetzt der Einzige, der sich denkt, was hat #27 mit #22 zu tun

Was sagt der Debugger, in welcher Zeile verabschiedet sich das Programm?
(zieh jedes Haar einzeln aus der Nase)

Bei #22 ging es darum, Einstellungen zu laden. Bei #27 geht es darum, Profileinstellungen zu laden WÄHREND dem Start, so dass das Formular immer dementsprechend aussieht wie es zuvor abgespeichert wurde. Als Beispiel halt mit dem Namen des Servicetechnikers. So muss er ihn nur einmalig eintragen.

Tut mir leid, ich programmiere erst seit dem ich im Praktikum bin und habe auf Hilfe hier im Forum gehofft, ohne dämliche Zwischenbemerkungen. Habe die App bisher immer ohne Debugger gestartet, da er das Programm dann viel schneller ausführt. Vielleicht etwas dämlich von mir.

Jetzt funktioniert das ganze jedoch. Habe den Fehler gefunden. Hatte, als ich das das erste mal ausprobiert habe, vergessen das Feld vom Servicetechniker als Ausgabe anzugeben. Dementsprechend hat er zwar die Sachen geladen, aber nicht ausgeben können.

Zitat:

PS Wenn du keinen Sarkasmus magst, dann poste doch selbständig alle relevanten Informationen zur Frage

Werde mir beim nächsten mal mehr Mühe geben.

Nachtrag: Wie mache ich das mit der Abfrage, ob die Datei besteht? Auf dem Simulator funktioniert es nämlich, auf dem Gerät nicht.

Firemonkey abspeichern (iOS)

AW: Firemonkey abspeichern (iOS)

AW: Firemonkey abspeichern (iOS)

AW: Firemonkey abspeichern (iOS)

AW: Firemonkey abspeichern (iOS)

Forumregeln