F�rum array of string, n�o consigo visualizar o conte�do do array no delphi #611223

10/06/2020

algu�m pode dar uma dica

var
placa : array [0..2] of string

ind := 0;
while pos_placa > 0 do
begin
placa[ind] := copy(XMLTransp, pos_placa+7, 7);
XMLTransp := copy (XMLTransp, pos_placa+7+7+8, 100);
pos_placa := pos(UpperCase('<placa>'), UpperCase(XMLTransp));
inc(ind);
end;

for j := 0 to (ind - 1) do
Application.MessageBox(pchar(placa[ind]), 'Aviso', MB_OK);

Emanuel Gon�alves

Curtir t�pico

+ 0

Responder

Post mais votado

11/06/2020

� Length() !!!! kkkkkkk len() � em outra linguagem

var
  placa: array of string;
begin
  pos_placa := pos(UpperCase('<placa>'), UpperCase(XMLTransp));
  while pos_placa > 0 do
  begin
    SetLength(placa, Length(placa)+1);
    placa[High(placa)] := copy(XMLTransp, pos_placa+7,7);
    XMLTransp := copy (XMLTransp, pos_placa+7+7+8, 100);
    pos_placa := pos(UpperCase('<placa>'), UpperCase(XMLTransp));
  end;
 
  for j := Low(placa) to High(placa) do
    Application.MessageBox(pchar(placa[j]), 'Aviso', MB_OK); // aqui estava placa[ind], e deveria ser placa[j]

Emerson Nascimento

Responder

Gostei + 1

Mais Posts

10/06/2020

Emerson Nascimento

tente assim:

var
  placa: array of string;
begin
  pos_placa := pos(UpperCase('<placa>'), UpperCase(XMLTransp));
  while pos_placa > 0 do
  begin
    SetLength(placa, len(placa)+1);
    placa[High(placa)] := copy(XMLTransp, pos_placa+7,7);
    XMLTransp := copy (XMLTransp, pos_placa+7+7+8, 100);
    pos_placa := pos(UpperCase('<placa>'), UpperCase(XMLTransp));
  end;

  for j := Low(placa) to High(placa) do
    Application.MessageBox(pchar(placa[j]), 'Aviso', MB_OK); // aqui estava placa[ind], e deveria ser placa[j]

Responder

Gostei + 0

11/06/2020

Emanuel Gon�alves

tente assim:

var
  placa: array of string;
begin
  pos_placa := pos(UpperCase('<placa>'), UpperCase(XMLTransp));
  while pos_placa > 0 do
  begin
    SetLength(placa, len(placa)+1);
    placa[High(placa)] := copy(XMLTransp, pos_placa+7,7);
    XMLTransp := copy (XMLTransp, pos_placa+7+7+8, 100);
    pos_placa := pos(UpperCase('<placa>'), UpperCase(XMLTransp));
  end;

  for j := Low(placa) to High(placa) do
    Application.MessageBox(pchar(placa[j]), 'Aviso', MB_OK); // aqui estava placa[ind], e deveria ser placa[j]

T� reclamando do len

Responder

Gostei + 0

11/06/2020

Emanuel Gon�alves

tente assim:

var
  placa: array of string;
begin
  pos_placa := pos(UpperCase(''<placa>''), UpperCase(XMLTransp));
  while pos_placa > 0 do
  begin
    SetLength(placa, len(placa)+1);
    placa[High(placa)] := copy(XMLTransp, pos_placa+7,7);
    XMLTransp := copy (XMLTransp, pos_placa+7+7+8, 100);
    pos_placa := pos(UpperCase(''<placa>''), UpperCase(XMLTransp));
  end;

  for j := Low(placa) to High(placa) do
    Application.MessageBox(pchar(placa[j]), ''Aviso'', MB_OK); // aqui estava placa[ind], e deveria ser placa[j]

T� reclamando do len

Responder

Gostei + 0

11/06/2020

Emanuel Gon�alves

Mais uma vez obrigado Emerson !!

� Length() !!!! kkkkkkk len() � em outra linguagem

var
  placa: array of string;
begin
  pos_placa := pos(UpperCase('<placa>'), UpperCase(XMLTransp));
  while pos_placa > 0 do
  begin
    SetLength(placa, Length(placa)+1);
    placa[High(placa)] := copy(XMLTransp, pos_placa+7,7);
    XMLTransp := copy (XMLTransp, pos_placa+7+7+8, 100);
    pos_placa := pos(UpperCase('<placa>'), UpperCase(XMLTransp));
  end;
 
  for j := Low(placa) to High(placa) do
    Application.MessageBox(pchar(placa[j]), 'Aviso', MB_OK); // aqui estava placa[ind], e deveria ser placa[j]

Responder

Gostei + 0