今天项目组发生一个事情就是，后台aix上对多语言文本（英语+汉字）换行问题搞不太清楚。
最早前台的多字符的代码我检查了一下（按照0-128以外算中文的代码）发现不是安全的代码。
(delphi 7.0)
delphi安全的混合字符的操作方法是：
在strsUtils单元中
leftstr
MidStr
Rightstr
aix下是： ......
今天项目组发生一个事情就是，后台aix上对多语言文本（英语+汉字）换行问题搞不太清楚。
最早前台的多字符的代码我检查了一下（按照0-128以外算中文的代码）发现不是安全的代码。
(delphi 7.0)
delphi安全的混合字符的操作方法是：
在strsUtils单元中
leftstr
MidStr
Rightstr
aix下是： ......
#13回车换行
将form2内容加入到form1列表框：在form2里：form1.listbox1.items.add(edit1.text)
listbox1.items.loadfromfile('chinese.txt')将chinese.txt文件内容载入列表框中。但前提是要整个窗体创建时候加载导入，双击整个窗体procedure TForm1.FormCreate(Sender: TObject)
listbox1.items.savetofile('chinese.txt')将列表框的列表内容保存到当前目录下的chinese.txt文件中。
listbox1.deleteselected删除列表框所选的一项combobox1.deleteselected删除下拉列表框所选的一项
form1.show与form1.showmodal的区别： show，表单1打开表单2的同时，仍能切换到表单1操作。而showmodal，开了表单2，关闭了才能切换返回表单1。
功能函数：showmessage('内容'); 表单form.close; 表单form.show;
编写菜单时：ctrl+→(右方向键)：嵌套子菜单项。
messagebox(handle,'文字','标题',MB_ok);
除了MB_ok：对话框的确定，还有MB_ICONINFORMATION：蓝色惊叹号。MB_ICONWARNING：黄色惊叹号。MB_ICONQUESTION：无声音蓝色问号。MB_ICONHAND：红色警告交叉号。
------------------------------
Rgn：region缩写[ri:dʒən]地区,地带,区域,领域,范围【仅为英文� ......
很奇怪，昨天在编译程序的时候，出现过，iphist.dat 文件。每次执行都出现，仔细查看代码，什么也没有啊！后来在网站找到原因：
使用了IPWatch 控件的
一般产生这个文件是因为使用了indy的 TIdIPWatch 控件
该控件有个
ip历史的功能。
historyfilename指定的是保存ip历史记录的文件名，默认是iphist.Dat
historyenabled设为false，可以关闭这个功能，也就不会产生该文件了。[: ......
Delphi中Format字符串说明
function Format(const Format: string; const Args: array of const):
string;
Format字符串说明：
"%" [index ":"] ["-"] [width] ["." prec] type
(1)
格式化字符串必须以%开头
(2) [index ":"]
索引指的是Args参数列表中要显示的每一项的序号。比如：Args是
['a',
'c']，那么'a'的索引就是0，而'c'的索引就是1，而且由于只有
两项，所以就不会出现大于1的索引值。
Format('%2:s %1:s %0:s', ['1st', '2nd',
'3rd']);
结果：'3rd 2nd 1st'
(3) ["-"]
这个标识符的作用是当要显示的字符的个数少于[width]时，在右边填补空格；
......
不论数组元素是什么类型，静态数组的局部变量总会在栈上分配。如果堆栈大小不够将会导致异常。下例暗藏着一个危险的bug
procedure stackover;
var
s:array [0..4100] of string[255];
begin
end;
delphi默认栈最大为$100000字节，上例中的栈上分配的大侠为256*4100>$10000。测试必然会出现异常Stack overflow
与静态数组不同，动态数组变量只占4个字节。
记录类型总是分配在内存中，因此与静态数字渔阳，在例程中定义过大的记录类型的局部变量时，也可能出现导致栈溢出。
以上说的是均是指局部变量，全局变量在堆上分配，所受影响较少！ ......
Delphi 创建目录及写日志文件
var
TF: TextFile;
LogFile: string;
txt :string;
sysDir:string;
//创建按钮
procedure TForm1.Button1Click(Sender: TObject);
begin
sysDir:=extractfilepath(application.ExeName );
if not directoryexists(sysdir+'log\') then
createdir(sysdir+'log\');
logfile:=sysdir+'log\'+formatdatetime('yyyymmdd',now)+'.txt';
end;
//写日志按钮
procedure TForm1.Button2Click(Sender: TObject);
begin
//assignfile(logfile,'log.txt');
AssignFile(tf,logfile);
if fileexists(logfile) then
append(tf)
else
rewrite(tf);
writeln(tf,'123');
closefile(tf);
end;
......
最新文章 : delphi