Fórum função copy #331162

15/10/2006

0

Delphi

Caros colegas ao tentar imprimir direto na lpt1 (matricial) o conteudo de um campo da base de dados que tem tamanho 30 estou utilizando a função copy para permitir que seja impressos só os 25 caractres iniciais. Acontece que quando imprimie um determinado registro que tem menos de 25 carcteres o dado da coluna seguinte fica desalinhado dos outros.

Me parece que isso faz parte da função copy pois ela não considera espaços em branco no final da string correto?

Se alguem puder me ajudar agradeço desde já

Gilson Heleno
ghsol@uol.com.br


Ghsol

Ghsol

Responder

Posts

16/10/2006

Steve_narancic

Crie uma função que coloque espaços em branco no final do texto para preencher a quantidade de caracteres e ai sim de um copy


Responder

Gostei + 0

16/10/2006

Tiagorocha

Eu acho mais prático usar a função format: Format(´¬-25s´,[CampoDaTabela]);


Responder

Gostei + 0

16/10/2006

Nigro

ShowMessage(Edit1.Text + Replicate(´*´, 25 - Length(Edit1.Text)));

function Replicate(cLetra: string; nNum: Integer): string;
var i: integer;
cString: string;
begin
cString := ´´;
for i := 1 to nNum do
begin
cString := cString + cLetra;
end;
Result := cString;
end;


Responder

Gostei + 0

17/10/2006

Ghsol

Caros Parceiros obrigado pelas dicas apesar de ter conseguido resolver de outra forma

Até a próxima[/list]


Responder

Gostei + 0

18/10/2006

Tiagorocha

E qual seria a outra forma? Estou curioso... :o


Responder

Gostei + 0

18/10/2006

Nigro

Pois é... compartilhe com todos...


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar