ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Como quebrar string em vetores?

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
adriano_servitec
Colaborador
Colaborador


Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618
MensagemEnviada: Qua Set 09, 2020 2:31 pm    Assunto: Como quebrar string em vetores? Responder com Citação
Como quebrar string em vetores?


Recebo N string separada por /

Tipo
/listagem/452154/441/6587
/processo/5685
/donwload/88547/9987/10225/14

Preciso passar os argumentos para cada um
fArgs1X são strings

Código:
fArgs1 := agr1[0];
fArgs2 := agr1[1];
fArgs3 := agr1[2];
fArgs4 := agr1[3];

etc

Só preciso saber como colocar cada um em seu argumento sem a barra /
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
JoaoSHi
Experiente
Experiente


Registrado: Segunda-Feira, 25 de Agosto de 2008
Mensagens: 483
MensagemEnviada: Qua Set 09, 2020 3:15 pm    Assunto: Responder com Citação
Não sei se entendi direito, seria isso ?

Código:
procedure TForm1.Button1Click(Sender: TObject);
var
  st : TStringList;
  i  : Integer;
begin
  st := TStringList.Create;
  Try
    st.Delimiter := '/';
    st.DelimitedText := '/donwload/88547/9987/10225/14';

    for i := 0 to st.Count - 1 do
      begin
        memo1.Lines.Add(st[i]);
      end;
  Finally
    st.Free;
  end;

end;
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
adriano_servitec
Colaborador
Colaborador


Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618
MensagemEnviada: Qua Set 09, 2020 3:22 pm    Assunto: Responder com Citação
JoaoSHi escreveu:
Não sei se entendi direito, seria isso ?

Código:
procedure TForm1.Button1Click(Sender: TObject);
var
  st : TStringList;
  i  : Integer;
begin
  st := TStringList.Create;
  Try
    st.Delimiter := '/';
    st.DelimitedText := '/donwload/88547/9987/10225/14';

    for i := 0 to st.Count - 1 do
      begin
        memo1.Lines.Add(st[i]);
      end;
  Finally
    st.Free;
  end;

end;
Isso mesmo amigo...Obrigado
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
adriano_servitec
Colaborador
Colaborador


Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618
MensagemEnviada: Qua Set 09, 2020 3:49 pm    Assunto: Responder com Citação
JoaoSHi escreveu:
Não sei se entendi direito, seria isso ?

Código:
procedure TForm1.Button1Click(Sender: TObject);
var
  st : TStringList;
  i  : Integer;
begin
  st := TStringList.Create;
  Try
    st.Delimiter := '/';
    st.DelimitedText := '/donwload/88547/9987/10225/14';

    for i := 0 to st.Count - 1 do
      begin
        memo1.Lines.Add(st[i]);
      end;
  Finally
    st.Free;
  end;

end;


Se eu mudar para '/download/88547/9987/10225';

O primeiro preenche em branco
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
natanbh1
Colaborador
Colaborador


Registrado: Terça-Feira, 15 de Março de 2011
Mensagens: 3093
Localização: Belo Horizonte - MG
MensagemEnviada: Qui Set 10, 2020 3:23 pm    Assunto: Responder com Citação
Uma maneira de contornar:

Código:
var
  st: TStringList;
  i: integer;
  valores: string;
begin
  st := TStringList.Create;
  Try
    Memo1.Clear;

    valores := '/download/88547/9987/10225/14';

    while valores[1] = '/' do
      valores := Copy(valores, 2);

    st.Delimiter := '/';
    st.DelimitedText := valores;

    for i := 0 to st.Count - 1 do
    begin
      Memo1.Lines.Add(st[i]);
    end;
  Finally
    st.Free;
  end;
end;

_________________
''A persistência é o caminho para o êxito.''
Charlie Chaplin
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail
adriano_servitec
Colaborador
Colaborador


Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618
MensagemEnviada: Qui Set 10, 2020 4:59 pm    Assunto: Responder com Citação
natanbh1 escreveu:
Uma maneira de contornar:

Código:
var
  st: TStringList;
  i: integer;
  valores: string;
begin
  st := TStringList.Create;
  Try
    Memo1.Clear;

    valores := '/download/88547/9987/10225/14';

    while valores[1] = '/' do
      valores := Copy(valores, 2);

    st.Delimiter := '/';
    st.DelimitedText := valores;

    for i := 0 to st.Count - 1 do
    begin
      Memo1.Lines.Add(st[i]);
    end;
  Finally
    st.Free;
  end;
end;
Muito obrigado amigo, deu certo.
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB