Fórum Espaços em brancos á direita do txt #182706
18/09/2003
0
Queria saber como lococar vários espaços dentro de uma arquivo txt. Ex tenho um campo que ao gravar no txt grava com 15 caracteres, sendo que tenho que preencher 20 caracteres, assim sendo colocar 8 caracteres em brancos ao lado direito do txt.
EX:
DELPHI O CENTRO_____
queria que colocasse 5 espacos em brancos.
Obrigado. :D
EX:
DELPHI O CENTRO_____
queria que colocasse 5 espacos em brancos.
Obrigado. :D
Ecie
Curtir tópico
+ 0
Responder
Posts
18/09/2003
Lidiane
tente assim:
Substitua o ´X´ por ´ ´
Lidiane.
var i:integer;
texto:string;
begin
texto:=trim(edit1.Text);
for i := 1 to (20-length(texto)) do begin
insert(´X´,texto,length(texto)+1);
end;
edit1.Text:=texto;
end;Substitua o ´X´ por ´ ´
Lidiane.
Responder
Gostei + 0
18/09/2003
Adilsond
Veja o comando Format:
ShowMessage(´X´ + Format(´¬-20s´,[´TEXTO´]) + ´X´);
ShowMessage(´X´ + Format(´¬-20s´,[´TEXTO´]) + ´X´);
Responder
Gostei + 0
18/09/2003
Echoesofpinkfloyd
Queria saber como lococar vários espaços dentro de uma arquivo txt. Ex tenho um campo que ao gravar no txt grava com 15 caracteres, sendo que tenho que preencher 20 caracteres, assim sendo colocar 8 caracteres em brancos ao lado direito do txt.
EX:
DELPHI O CENTRO_____
queria que colocasse 5 espacos em brancos.
Obrigado. :D
ou
texto:=trim(texto)+stringofchar(´X´, 20-lenght(trim(texto)));
onde x=´ ´;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)