1: function DeleteBlank(So : string): string; var De : string; i : integer; begin for i := 1 to length(So) do begin if copy(so,i,1)<>' ' then De := De+copy(So,i,1 end; Result := De; end; 2:不知道你說的列名存在哪個控件中﹖
----------------------------------------------
-