Fórum Dúvida Cruel! :( #139583
21/02/2003
0
Estou usando delphi6 com interbase 6, e quando vou alterar dados da tabela em algum dbedit eu tenho que apagar os espaços em branco no final do campo. Como fazer que estes espaços não sejam gravados? ou por que eles estão lá.
obs: utilizo campos char(9)
obs: utilizo campos char(9)
Anonymous
Curtir tópico
+ 0
Responder
Posts
21/02/2003
Dor_poa
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;
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)