espaços no final de um dbedit
:( 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
Curtidas 0
Respostas
Dor_poa
21/02/2003
da um trim nele... ou
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;
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;
GOSTEI 0