Como tirar espaços no início de um Edit.
E aí, blz.
Como eu tiro espaços no ínicio dos Edits, quando alguém digitar algo.
valeu.
Como eu tiro espaços no ínicio dos Edits, quando alguém digitar algo.
valeu.
Giovani
Curtidas 0
Respostas
Omero
13/11/2003
no evento onExit do Edit faça o seguinte código;
var S: string;
begin
S := Edit1.Text;
while S[1] = ´ ´ do delete(S, 1, 1);
Edit1.Text := S;
end;
var S: string;
begin
S := Edit1.Text;
while S[1] = ´ ´ do delete(S, 1, 1);
Edit1.Text := S;
end;
GOSTEI 0
Marcelo Saviski
13/11/2003
ou
[b:fb2ed4f49b]TrimLeft [/b:fb2ed4f49b]tira os Espaços a esquerda;
[b:fb2ed4f49b]TrimRight [/b:fb2ed4f49b]tira os espaços a direita;
[b:fb2ed4f49b]Trim [/b:fb2ed4f49b]tira os espaços a esquerda e a direita;
Edit.Text := TrimLeft(Edit.Text)
[b:fb2ed4f49b]TrimLeft [/b:fb2ed4f49b]tira os Espaços a esquerda;
[b:fb2ed4f49b]TrimRight [/b:fb2ed4f49b]tira os espaços a direita;
[b:fb2ed4f49b]Trim [/b:fb2ed4f49b]tira os espaços a esquerda e a direita;
GOSTEI 0