Question

delphi如何去除字符串中所有的空格

Answer 1

function trimblank(s:string):string;
var
	i,j:integer;
begin
	repeat
		i:=pos(' ',s);
		j:=length(s);
		if i>0 then s:=copy(s,1,i-1)+copy(s,i+1,j-i);
	until i=0;
	trimblank:=s;
end;

begin
	writeln(trimblank('   qwe rt y ui  '));
end.