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
Vinibarr
21/02/2003
altere o tipo do campo para varchar(9); neste caso, ele vai ocupar somente o espaço necessário, e não haverá mais espaços em branco.
GOSTEI 0
Dor_poa
21/02/2003
Tenta usar o comando trim... se ele nao funcionar, o que eu duvido... usa esta função..
{ 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.
{ 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.
GOSTEI 0
Duque
21/02/2003
vc pode fazer o seguinte ...
coloque Trim antes do nome do campo ao inserir ...
Trim(Edit.text);
coloque Trim antes do nome do campo ao inserir ...
Trim(Edit.text);
GOSTEI 0