Einzelnen Beitrag anzeigen

AndreFM

Registriert seit: 26. Nov 2009
Ort: Sydney, Australia
15 Beiträge
 
Delphi 2010 Enterprise
 
#5

AW: Firemonkey iOS SPeichern

  Alt 20. Dez 2011, 01:20
Man kann ja Daten speichern, muss nur darauf achten wo.

Schaue mal dieses link:
http://developer.apple.com/library/m...ppRuntime.html

Dieses Code unten ist nicht sauber, aber kann man ausprobieren. Ich habe ganz schnell was gebastelt und funktioniert ohne Probleme.
Ueber dein Problem mit SQLite, kann ich nur denken das du Probleme mit Rechte hast. Versuch die Datei unten DOCUMENTS zu speichern und dort öffnen.

Delphi-Quellcode:
function RetrieveApplicationPath(NormalPath: string): String;
var
  size: integer;
  dirTmp: string;
  tmpDelimiter: string;
begin
  tmpDelimiter := IncludeTrailingPathDelimiter('');
  size := length(NormalPath) - 1; // -1 to remove the / at end
  dirTmp := Copy(NormalPath, 1, size);
  while (dirTmp[size] <> tmpDelimiter) and (size > 2) do
    dec(size);
  Result := Copy(NormalPath, 1, size);
end;

procedure TFMain.WriteConfig;
var
  textFileTmp: TextFile;
  strTmp: string;
  error: boolean;
begin
  error := false;

  // Try to open the file for writing and write some lines
  AssignFile(textFileTmp, ConfigFileName);
  try
    ReWrite(textFileTmp);
  except
    error := true;
  end;
  if error then
    exit;

  Writeln(textFileTmp, setupIP);
  Writeln(textFileTmp, setupPort);
  CloseFile(textFileTmp);
end;

procedure TFMain.ReadConfig;
var
  textFileTmp: TextFile;
  strTmp: string;
begin
  // Reopen the file for reading only and display content
  if fileExists(ConfigFileName) then
  begin
    AssignFile(textFileTmp, ConfigFileName);
    Reset(textFileTmp);

    ReadLn(textFileTmp, setupIP);
    ReadLn(textFileTmp, setupPort);
    CloseFile(textFileTmp);
  end
  else
  begin
    setupIP := '192.168.0.1';
    setupPort := '81';
  end;
end;


procedure TFMain.FormCreate(Sender: TObject);
begin
  ApplicationPathImages := ExtractFilePath(paramstr(0));
  ApplicationPath := RetrieveApplicationPath(ApplicationPathImages);
  DocumentDirDelphi := ApplicationPath + 'Documents/';
  ConfigFileName := DocumentDirDelphi + 'config.txt';
  ReadConfig;
André Felix Miertschink

Geändert von AndreFM (20. Dez 2011 um 02:03 Uhr)
  Mit Zitat antworten Zitat