Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
cz_012273
MyDelphi
提交
ab89f87b
MyDelphi
项目概览
cz_012273
/
MyDelphi
通知
4
Star
2
Fork
0
代码
文件
提交
分支
Tags
贡献者
分支图
Diff
Issue
0
列表
看板
标记
里程碑
合并请求
0
DevOps
流水线
流水线任务
计划
Wiki
0
Wiki
分析
仓库
DevOps
项目成员
Pages
MyDelphi
项目概览
项目概览
详情
发布
仓库
仓库
文件
提交
分支
标签
贡献者
分支图
比较
Issue
0
Issue
0
列表
看板
标记
里程碑
合并请求
0
合并请求
0
Pages
DevOps
DevOps
流水线
流水线任务
计划
分析
分析
仓库分析
DevOps
Wiki
0
Wiki
成员
成员
收起侧边栏
关闭侧边栏
动态
分支图
创建新Issue
流水线任务
提交
Issue看板
前往新版Gitcode,体验更适合开发者的 AI 搜索 >>
提交
ab89f87b
编写于
5月 22, 2022
作者:
C
cz_012273
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
初次运行时自动创建myfavorite文件夹和myfavorite.txt文件,用于保存收藏网址。
上级
7886eaa9
变更
2
隐藏空白更改
内联
并排
Showing
2 changed file
with
18 addition
and
6 deletion
+18
-6
MainForm.pas
MainForm.pas
+13
-1
MyDelphi.dproj
MyDelphi.dproj
+5
-5
未找到文件。
MainForm.pas
浏览文件 @
ab89f87b
...
...
@@ -99,6 +99,7 @@ procedure TToolsForm.FormShow(Sender: TObject);
var
txtlist
,
namelist
:
TStringList
;
i
:
integer
;
favoritedir
:
string
;
favoritefile
:
String
;
begin
...
...
@@ -106,9 +107,20 @@ begin
txtlist
:=
TStringList
.
Create
;
namelist
:=
TStringList
.
Create
;
urllist
:=
TStringList
.
Create
;
favoritedir
:=
System
.
IOUtils
.
Tpath
.
GetSharedDocumentsPath
+
'/myfavorite'
;
favoritefile
:=
System
.
IOUtils
.
Tpath
.
GetSharedDocumentsPath
+
'/myfavorite/myfavorite.txt'
;
txtlist
.
LoadFromFile
(
favoritefile
);
if
fileexists
(
favoritefile
)
then
txtlist
.
LoadFromFile
(
favoritefile
)
else
begin
if
not
directoryexists
(
favoritedir
)
then
createdir
(
favoritedir
);
txtlist
.
add
(
'百度'
);
txtlist
.
add
(
'www.baidu.com'
);
txtlist
.
savetoFile
(
favoritefile
)
end
;
for
i
:=
0
to
txtlist
.
Count
-
1
do
begin
...
...
MyDelphi.dproj
浏览文件 @
ab89f87b
...
...
@@ -342,23 +342,23 @@
<Overwrite>true</Overwrite>
</Platform>
</DeployFile>
<DeployFile LocalName="
$(BDS)\bin\Artwork\Android\FM_NotificationIcon_24x24.png" Configuration="Debug" Class="Android_NotificationIcon24
">
<DeployFile LocalName="
Android64\Debug\colors.xml" Configuration="Debug" Class="Android_Colors
">
<Platform Name="Android64">
<RemoteName>ic_notification.png</RemoteName>
<Overwrite>true</Overwrite>
</Platform>
</DeployFile>
<DeployFile LocalName="Android64\Debug\
AndroidManifest.xml" Configuration="Debug" Class="ProjectAndroidManifest
">
<DeployFile LocalName="Android64\Debug\
styles.xml" Configuration="Debug" Class="AndroidSplashStyles
">
<Platform Name="Android64">
<Overwrite>true</Overwrite>
</Platform>
</DeployFile>
<DeployFile LocalName="
Android64\Debug\colors.xml" Configuration="Debug" Class="Android_Colors
">
<DeployFile LocalName="
$(BDS)\bin\Artwork\Android\FM_NotificationIcon_24x24.png" Configuration="Debug" Class="Android_NotificationIcon24
">
<Platform Name="Android64">
<RemoteName>ic_notification.png</RemoteName>
<Overwrite>true</Overwrite>
</Platform>
</DeployFile>
<DeployFile LocalName="Android64\Debug\
styles.xml" Configuration="Debug" Class="AndroidSplashStyles
">
<DeployFile LocalName="Android64\Debug\
AndroidManifest.xml" Configuration="Debug" Class="ProjectAndroidManifest
">
<Platform Name="Android64">
<Overwrite>true</Overwrite>
</Platform>
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录