文本中空格处理的问题？

[foomscat]

文本格式：
列1 列2
aaa1 bbb1
aaa2 bbb2
ccc4
aaa4 bbb4
本人想把列1中不为空的行加入数据表里面，if 列1<>'' then .... 该方法不成功。 请踢教！

[foomscat]

楼上的解决方法都试过了。但还是不成功。列1为空的行同样加入了库表。
还有其他解决的方法吗，谢谢

[crossbow]

if Trim(列1) <> '' then ...

[pilicat]

我的这个小例程是在Form上放两个Memo控件来做的，可以实现你要的功能。
其中，Memo1放的是源数据，Memo2用于放符合条件的数据。
我使用你提供的数据，调试通过！

procedure TForm1.Button1Click(Sender: TObject);
var
jsq:integer;
str:String;
begin
memo2.Lines.Clear;
for jsq:=0 to memo1.Lines.Count-1 do
begin
str:=memo1.Lines[jsq];
str:=trim(str);
if pos(' ',str)>0 then
memo2.Lines.Add(memo1.Lines[jsq]);
end;
end;

[WWWWA]

if length(Trim(列1))=0 then 写入

[dickeybird888]

同意楼上的!

[dickeybird888]

同意一楼的不是楼上

[mengxiang5160]

procedure TForm1.Button1Click(Sender: TObject);
begin
for i:=0 to 行数减1 do
begin
if length(Trim(列1))=0 then
begin
存储数据；
end;
end;
end;