Fórum ajustar texto no listbox delphi #459750

André, se o texto vier mesmo do jeito que você colocou, será complicado formatar, porque algumas palavras estão quebradas.
Como é que você recebe esse retorno? Via arquivo texto?

Att,

Marcos

posso receber em um arquivo .txt ou direto no listbox da seguinte forma:

Procedure para receber as informações e conexão com a SCPC

procedure TForm4.EnviaCSR10(Requisicao : String);
var
Texto01, Texto02, Texto03, Texto04, Texto05, Texto06: String;
Texto07, Texto08, Texto09, Texto10, Texto11, Texto12: String;
CodigoRet, ResultCons, Resposta: String;
QtdeTextos: Integer;
NovaReq: Boolean;
begin
{Envia a Consulta e trata a resposta}
try
CodigoRet := '';
ResultCons := '';
IdTCPClient:=TIdTCPClient.Create(nil);


IdTCPClient.Host := '187.11.182.170';
IdTCPClient.Port := 5020;
IdTCPClient.Connect(10000); {Timeout de 10 segundos}

repeat
NovaReq := False;

{Tenta enviar a string do layout para o servidor de aplicação...}
IdTCPClient.Write(Requisicao);

{Espera o retorno da resposta do servidor}
Resposta := IdTCPClient.CurrentReadBuffer;


{Verifica se o servidor retornou alguma resposta vazia}
if Trim(Resposta) = '' then
raise Exception.Create('O servidor retornou uma resposta inesperada.');

{Pega o retorno da resposta}
CodigoRet := Copy(Resposta, 40, 1);

{Texto da Resposta}
Texto01 := Copy(TrocaCaracterEspecial(Resposta, True), 049, 79);
Texto02 := Copy(TrocaCaracterEspecial(Resposta, True), 128, 79);
Texto03 := Copy(TrocaCaracterEspecial(Resposta, True), 207, 79);
Texto04 := Copy(TrocaCaracterEspecial(Resposta, True), 286, 79);
Texto05 := Copy(TrocaCaracterEspecial(Resposta, True), 365, 79);
Texto06 := Copy(TrocaCaracterEspecial(Resposta, True), 444, 79);
Texto07 := Copy(TrocaCaracterEspecial(Resposta, True), 523, 79);
Texto08 := Copy(TrocaCaracterEspecial(Resposta, True), 602, 79);
Texto09 := Copy(TrocaCaracterEspecial(Resposta, True), 681, 79);
Texto10 := Copy(TrocaCaracterEspecial(Resposta, True), 760, 79);
Texto11 := Copy(TrocaCaracterEspecial(Resposta, True), 839, 79);
Texto12 := Copy(TrocaCaracterEspecial(Resposta, True), 918, 79);

{Verifica se houve erro}
if CodigoRet = '9' then
lst1.Items.Add(Texto01)
else
begin
{Quantidade de textos preenchidos}
QtdeTextos := StrToInt(Copy(Resposta, 47, 2));

{Verifica o resultado da consulta}
ResultCons := Copy(Resposta, 41, 1);

{Número da consulta ---> virá apenas quando nada consta}
//lblNumero.Caption := Copy(Resposta, 42, 5);

{Verifica se a transmissão foi concluida}
if QtdeTextos >= 01 then lst1.Items.Add(Texto01);
if QtdeTextos >= 02 then lst1.Items.Add(Texto02);
if QtdeTextos >= 03 then lst1.Items.Add(Texto03);
if QtdeTextos >= 04 then lst1.Items.Add(Texto04);
if QtdeTextos >= 05 then lst1.Items.Add(Texto05);
if QtdeTextos >= 06 then lst1.Items.Add(Texto06);
if QtdeTextos >= 07 then lst1.Items.Add(Texto07);
if QtdeTextos >= 08 then lst1.Items.Add(Texto08);
if QtdeTextos >= 09 then lst1.Items.Add(Texto09);
if QtdeTextos >= 10 then lst1.Items.Add(Texto10);
if QtdeTextos >= 11 then lst1.Items.Add(Texto11);
if QtdeTextos = 12 then lst1.Items.Add(Texto12);

{Verifica se a existem dados para serem transmitidos}
if CodigoRet = '1' then
begin
NovaReq := True;
Requisicao := #13;
end;
end;

until NovaReq = False;

if ResultCons = '0' then lbl5.Caption := 'Nada Consta'
else
if ResultCons = '1' then lbl5.Caption := 'Nada Consta com Passagem'
else
if ResultCons = '2' then lbl5.Caption := 'Constam Informações';

finally
IdTCPClient.Disconnect;
RespostaLiteral:= StrToPChar(Resposta);
end;
end;

EVENTO DO BOTAO DE CONSULTA, onde realiza a consulta e alimenta as informações.

procedure TForm4.btn1Click(Sender: TObject);
var
StrEnvio: String;
begin
{Monta a string de envio padrão para uma consulta integrada}
StrEnvio := Completa( 6, 'D', 'CSR10') +
Completa( 2, 'D', '09') +
Completa(15, 'D', '') +
Completa( 8, 'E', edt1.Text, '0') +
Completa( 8, 'D', edt2.Text) +
Completa( 8, 'D', 'CIN') +
Completa(20, 'D', 'CPF'+edt3.Text) +
Completa(20, 'D', 'RG222222222') +
Completa(20, 'D', '') +
Completa(50, 'D', 'CONSULTA MIX GESTÃO') +
Completa( 8, 'D', '00000000') +
Completa( 8, 'D', FormatDateTime('ddmmyyyy', Date)) +
{Informações do cheque via digitação}
Completa( 3, 'E', '', '0') +
Completa( 5, 'E', '', '0') +
Completa(15, 'E', '', '0') +
Completa( 1, 'E', '', '0') +
Completa( 8, 'E', '', '0') +
Completa( 1, 'E', '', '0') +
{---------------------------------------}
Completa( 1, 'E', '', '0') +
Completa( 2, 'D', 'XX') +
Completa(11, 'E', FloatToStr((10.55 * 100)), '0') +
Completa(50, 'D', '') +
Completa( 4, 'E', '', '0') +
Completa( 9, 'E', '', '0') +
Completa( 8, 'E', '', '0') +
Completa( 1, 'D', '') +
Completa( 8, 'E', '', '0') +
Completa( 1, 'E', 'C');


try
lst1.Items.BeginUpdate;
lst1.Clear;
EnviaCSR10(StrEnvio);
finally
lst1.Items.EndUpdate;
end;
end;

Eu consegui pegar todo o texto e jogar em uma linha só, teria algum método agora para contar a quantidade de caracteres e quebrar a linha depois da quantidade estabelecida, e ir repetindo o processo até o texto acabar ?

Mas você tem no retorno a quantidade de caracteres por linha?

sim são 79 caracteres por linha

André,

Fiz o código abaixo, levando em consideração que o texto esteja tudo em uma linha só.
Caso precise, é só adaptar às suas necessidades.



Att,

Marcos