delphi 记事本时间转换
1. 打开记事本 1.tex 里面内容为 012005011517
………………………………

转换成 01--2005-01-15-17

再保存 记事本 2.txt

[解决办法]
LeftStr和RightStr两个函数,或你也可以用Copy
[解决办法]
记事本字符串只有一笔? 长度固定? 全是数字? 多笔时格式怎么保存的,一行一笔还是有什么间隔符号?

给你个范例(没测试),读到memo里面,一行行处理:
var
s:string;
i:integer;
begin
memo1.lines.loadfromfile('D:\1.txt');
for i:=0 to memo1.lines.count-1 do
begin
s:=memo1.lines.strings[i];
memo1.lines.strings[i]:=Copy(s,1,2)+'--'+Copy(s,3,4)+'-'+Copy(s,7,2)+'-'+Copy(s,9,2)+'-'+Copy(s,11,2);
end;
memo1.lines.loadfromfile('D:\2.txt');
end;
[解决办法]
str:=inttostr(memo1.lines.count)
[解决办法]
计算结束后加一句
memo1.Lines.Insert(0,datetimetostr(now));
[解决办法]
这句放在插入记录的最前面

探讨

计算结束后加一句
memo1.Lines.Insert(0,datetimetostr(now));

[解决办法]
如果长度是固定的就用pos，和copy来按照格式来处理就可以了。
这个问题是不困难的。
就是楼主要把该考虑的情况都考虑到，避免不是时间的字符串被处理就可以了。