y si hicieras algo asi
var
x:byte;
r,r2:string;
begin
x:=1;
r:=Edit1.Text;
r2:='';
while (length(r)>=x) do
begin
if (r[x]<>' ') then
r2:=r2+r[x];
inc(x);
end;
Edit2.Text:=r2;
end;
__________________
Toda Teoria es Gris mas es verde en Arbol de Dorados Frutos que es la Vida (Goethe)
|