-
Notifications
You must be signed in to change notification settings - Fork 23
/
FireMonkeyFiles.pas
96 lines (71 loc) · 1.51 KB
/
FireMonkeyFiles.pas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
unit FireMonkeyFiles;
interface
uses
classes,
{$IFDEF IOS}
Macapi.CoreFoundation,
Macapi.CoreServices,
{$ENDIF}
sysutils, ioutils;
function GetWriteablePath: string;
procedure TestWrite();
function TestRead(): string;
function FindDeployedFile(sName: string): string;
implementation
//{$IFDEF FPC}
var
content : string;
//{$ENDIF}
//{$IFDEF FPC}
function GetWriteablePath: string;
begin
result := TPath.GetHomePath + TPath.DirectorySeparatorChar + 'Documents'+ TPath.DirectorySeparatorChar;
end;
function FindDeployedFile(sName: string): string;
var
s: string;
begin
result := '';
s := TPath.GetHomePath+TPath.DirectorySeparatorChar+'Documents'+TPath.DirectorySeparatorChar+ sName;
if fileexists(s) then
result := s;
s := TPath.GetHomePath+TPath.DirectorySeparatorChar+sName;
if fileexists(s) then
result := s;
end;
function MyFileName : string;
begin
result := GetHomePath+'/Documents/poop.txt';
end;
//{$ENDIF}
procedure TestWrite();
var
s: string;
sl: TStringlist;
begin
sl := TStringList.create;
try
sl.add('poop');
//TFile.WriteAllText(TPath.GetHomePath() + TPath.DirectorySeparatorChar + 'Documents/sample.txt', sl.text);
sl.SaveToFile(MyFileName);
finally
sl.free;
end;
// {$ENDIF}
end;
function TestRead(): string;
var
sl: TStringlist;
begin
sl := TStringlist.create;
try
result := 'empty';
if fileexists(MyFileNAme) then begin
sl.LoadFromFile(MyFileName);
result := sl.text;
end;
finally
sl.free;
end;
end;
end.