Espaços em brancos á direita do txt

Delphi

18/09/2003

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


Ecie

Ecie

Curtidas 0

Respostas

Lidiane

Lidiane

18/09/2003

tente assim:

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.


GOSTEI 0
Adilsond

Adilsond

18/09/2003

Veja o comando Format:

ShowMessage(´X´ + Format(´¬-20s´,[´TEXTO´]) + ´X´);


GOSTEI 0
Echoesofpinkfloyd

Echoesofpinkfloyd

18/09/2003

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=´ ´;


GOSTEI 0
POSTAR