文本文件导入数据库问题 ( 积分: 100 )

slAll := TStringList.Create;
slLine := TStringList.Create;
slAll.LoadFromFile(abc.txt');
for i := 0 to slAll.Count-1 do
begin
if Trim(slAll.Strings)<>'' then
begin
slLine.Delimiter :=',';
slLine.DelimitedText := slAll.Strings;
AdoCommand1.CommandText:='insert into rl_busmng (a,b) values ('+quotedstr(slLine.Strings[0])+','+quotedstr(slLine.Strings[1])+')';
AdoCommand1.Execute;
在导入数据时第一个字段中的数据中有空格，会导致空格后的数据被放到第二个字段中，分隔符为＂，＂号，如何处理
例如：
文本文件格式
adfsadfsadfs adsdf,000
数据库中的数据
adfsadfsadfs adsdf