Dúvida Cruel! :(
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
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;
GOSTEI 0