我要控制在记事本中的输出格式，比如：

Question

genphone_ru(票票)　有没有代码？
谢谢

Answer 1

代码自己写吧!
把一条记录作为一个字符串,写一行.
比如说:
UserID设置为10个字符,
自己写个函数:
function AddSpace(const str:String;iLen:Integer):String;
var sStr :String;
    ii :Integer; 
begin
  sStr := str;
  for ii := 1 to iLen - Length(sStr) do
    sStr := sStr + ' ';
  Result := sStr;
end;
然后把这些字符串组合起来

Answer 2

建议你最好使用文本数据库，或者将字段之间用不可能使用到的符号如；之类的将字段分开，这样读起来很容易的。
要不然你就将文件写成.ini中，写成这样：
[1]
UserId=0
UserName=
Datatime=
Status=Exit
[2]
UserId=0
UserName=
Datatime=
Status=Login
.........