array of string, não consigo visualizar o conteúdo do array no delphi

Delphi

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

Emanuel Gonçalves

Curtidas 0

Melhor post

Emerson Nascimento

Emerson Nascimento

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]

GOSTEI 1

Mais Respostas

Emerson Nascimento

Emerson Nascimento

10/06/2020

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]
GOSTEI 0
Emanuel Gonçalves

Emanuel Gonçalves

10/06/2020

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
GOSTEI 0
Emanuel Gonçalves

Emanuel Gonçalves

10/06/2020

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
GOSTEI 0
Emanuel Gonçalves

Emanuel Gonçalves

10/06/2020

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]

GOSTEI 0
POSTAR