Dúvida Cruel! :(
21/02/2003
0
obs: utilizo campos char(9)
Anonymous
Posts
21/02/2003
Vinibarr
21/02/2003
Dor_poa
{ Uma função que tira os espaços no início e no final de uma string }
Function Trim(J:String):String; Export;
Begin
While J[Length(J)]=#32 do Dec(J[0]);
If Length(J)>1 then
While (J[1]=´ ´) do
Begin
Delete(J,1,1);
If Length(J)<=1 then J:=´´;
end;
Result:=J;
end;
Exports { Torna visivel para os programas }
Trim;
Begin
End.
24/02/2003
Duque
coloque Trim antes do nome do campo ao inserir ...
Trim(Edit.text);
Clique aqui para fazer login e interagir na Comunidade :)