社区
Delphi
帖子详情
TIniFile中如何设置相对目录
bibleboy
2001-08-05 12:28:20
delphi的帮助中是写成绝对路径
DelphiIni := TIniFile.Create('c:\windows\delphi32.ini');
我现在想把他设置为我程序的同一目录下,如何写?
...全文
82
3
打赏
收藏
TIniFile中如何设置相对目录
delphi的帮助中是写成绝对路径 DelphiIni := TIniFile.Create('c:\windows\delphi32.ini'); 我现在想把他设置为我程序的同一目录下,如何写?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
3 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
bibleboy
2001-08-05
打赏
举报
回复
多谢,不过你的问题对我来说太难了,sorry。
zeng_cao
2001-08-05
打赏
举报
回复
你能看看我的问题吗?帮个忙吧!
zeng_cao
2001-08-05
打赏
举报
回复
用ExtractFilePath函数。
filename:=ExtractFilePath(paramstr(0))+'myini.ini';
myinifile:=TInifile.Create(filename);
就可以把myini.ini文件设置成在程序的同一个目录下!
发送程序-源码
unit uMain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Mask, RzEdit, RzButton, ExtCtrls,
Ini
File
s, RzTabs, ComCtrls, RzListVw, RzShellCtrls, ImgList, RzShellDialogs, RzCmboBx, QRCtrls, QuickRpt, jpeg, ShlObj, RzPanel, RzSplit, RzTreeVw, DB, ADODB, Provider, DBClient, GridsEh, DBGridEh, RzStatus; type PShellItem = ^TShellItem; TShellItem = record FullID, ID: PItemIDList; Empty: Boolean; DisplayName, TypeName: string; ImageIndex, Size, Attributes: Integer; ModDate: string; end; TfrmMain = class(TForm) RzPageControl1: TRzPageControl; TabSheet1: TRzTabSheet; TabSheet2: TRzTabSheet; lbl1: TLabel; edt_Path1: TRzEdit; btn_o2: TButton; Button1: TButton; SplPreview: TRzSplitter; img1: TImage; RzToolbar1: TRzToolbar; RzSpacer1: TRzSpacer; ClientDS_PicCap: TClientDataSet; DataSP_PicCap: TDataSetProvider; Qry_PicCap: TADOQuery; Ds_PicCap: TDataSource; DBGridEh1: TDBGridEh; ClientDataSetH: TClientDataSet; DataSetProviderH: TDataSetProvider; QueryH: TADOQuery; DataSourceH: TDataSource; RzBtn_0: TRzBitBtn; RzBtn_1: TRzBitBtn; ImageList1: TImageList; Memo1: TMemo; ClientDS_PicCapacc_id_only: TStringField; ClientDS_PicCapname: TStringField; ClientDS_PicCapplate_num: TStringField; ClientDS_PicCapplate_type: TStringField; ClientDS_PicCapInsDate: TDateTimeField; ClientDS_PicCapAcc_ID_Only_1: TStringField; ClientDS_PicCapfDateTime: TDateTimeField; ClientDS_PicCapPicturePath1: TStringField; ClientDS_PicCapPicturePath2: TStringField; ClientDS_PicCapPicturePath3: TStringField; ClientDS_PicCapPicturePath4: TStringField; ClientDS_PicCapPicturePath5: TStringField; ClientDS_PicCapPicturePath6: TStringField; ClientDS_PicCapPicturePath7: TStringField; ClientDS_PicCapPrintCount: TIntegerField; ClientDataSetHAutoID: TAu
一个模仿Delphi的T
Ini
File
的类
在网上找到的一篇文章,没有作者和出处 using System;using System.IO;using System.Runtime.InteropServices;using System.Text;using System.Collections;using System.Collections.Specialized;using System.Windows.Forms;name
在css的框
中
打文字,css 边框上如何写入文字?
方法一:1、首先,打开html编辑器,新建html文件,例如:index.html。2、在index.html
中
的标签
中
,输入html代码:。文字3、浏览器运行index.html页面,此时实现了边框角落开口显示文字。方法二:这个可以通过
相对
定位使某元素恰好处在div的边框上的方式来实现1position:relative;下面举例说明1234我是边框上的文字我是边框内的文字
设置
css样式1234...
ini
utils for Golang
一直有计划将 Delphi
中
的譬如 T
Ini
File
等相关功能移植到 Golang,这些设施在 Delphi
中
(
相对
而言)比较常用,使用起来也非常方便。 虽然 Github 上早已有这些三方库,但我还是想仿照 Delphi 的做法来实现一套(其实只是模仿了 TMem
Ini
File
而非 Windows 下的 T
Ini
File
实现,暂时无意愿去实现 GetPrivateProfil...
delphi控件使用
Standard页 1- Tlistbox控件 重要属性items.* 举例,界面设计如下左,执行结果如下右: 代码为 procedure TForm1.Button1Click(Sender: TObject); begin edit1.Text := listbox1.Items.CommaText; edit2.Tex
Delphi
5,378
社区成员
262,720
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章