Firemonkey abspeichern (iOS)

[ZeroX1337]

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

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:

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;