把数据导入/导出到TXT文件的问题？(50分)

有时候需要把数据导入/导出，我把数据库导出到TXT文件，也充许从TXT文件导入。但是现在
遇到了两个问题想请教一下各位高手。
1、要怎样才可以把数据导出后做会一列一列的。我的意思是说我的各个字段的数据不一样长，
但要求在输出的时候输出一样长度。本来我是这样做的：
var str1,str2,str3:string[30];
str1:=fields[0].asstring;
str2:=fields[1].asstring;
str3:=fields[2].asstring;
wreiteln(mytextfile,str1,str2,str2);
可是当我打开库的时候，行与行这间并不能对齐啊，不会自动补上空格。
2、我是想，在导入的时候要知道这个TXT文件是不是符合我的格式要求，不然要是什么TXT文件都能导入的话，
那就没意思了。我想不要怎么做，后来我就自己定义了记录类型，做成自己特有的格式了。：）
急昐！！！

1.
>>可是当我打开库的时候，行与行这间并不能对齐啊，不会自动补上空格。
是打开文本文件不能自动对齐吧?

字符串是不会自动补空格的,你得手工加上去,

a:array [1..30] of char

Fillchar ord(' ')

str:=a;