String

Question

Como fa�o para desmembrar um string?Por exemplo:Um,Dois,Tr�s,QuatroN�o quero o caracter como retorno e sim a palavra:String[0] = �Um�String[1] = �Dois�String[2] = �Tr�s�String[4] = �Quatro�ObrigadoObs...

Bruno Belchior · Answer

por que n�o usar uma StringList... :?:...

Marco Salles · Answer

so para te dar uma id�ia..[quote:e7b2075d0b]procedure DesmenbrarString(s:String;caracter:Char);vari:integer;indice:integer;beginindice:=1;for i:=1 to length(s) doif s = caracter then //caracter separador    begin      showmessage(copy(s,indice,(i-indice)));      indice:=i+1;    end;if i > indice then  begin    showmessage(copy(s,indice,(i-indice)));    indice:=i+1;  endelse  begin     showmessage(s);  endend;[/quote:e7b2075d0b]...

Nigro · Answer

Obrigado pela r�pida resposta.Ser� que n�o teria algo nativo?...

Nigro · Answer

Seria legal, com String List, mas n�o ficaria muito grande?...

Bruno Belchior · Answer

Como assim muito grande :?:...

Nigro · Answer

Coloque aquium c�digo de exemplo...

Rjun · Answer

[code:1:e0869cd047]var  Texto: string;  Lista: TStringList;  i: integer;begin  Texto := �Um, Dois, Tres, Quatro, Cinco�;  Lista := TStringList.Create;  try    Lista.Delimiter := �.�;    Lista.DelimitedText := Texto;    for i := 0 to Lista.Count - 1 do      ShowMessage(Lista.Strings&#91;i&93;);  finally    FreeAndNil(Lista);  end;end;[/code:1:e0869cd047]...

Nigro · Answer

Valeu mesmo...Ficou metado do que eu esperava.Obrigad�o......

Fabiano G�es · Answer

Aproveitando a deixa sobre TStringList,o que exatamente faz :[code:1:43357b3751]StringList.Delimiter eStringList.DelimitedText       [/code:1:43357b3751]...

Rjun · Answer

[b:5bf3db1ac5]Delimiter[/b:5bf3db1ac5] � o caracter que faz a separa��o dos itens da lista.
[b:5bf3db1ac5]DelimitedText[/b:5bf3db1ac5] � o texto que cont�m o caracter delimitador que ser� separado em itens da stringlist.

Estude o exemplo.

Fabiano G�es · Answer

ahhhh,Rjun desculpe !!!!!!!!!� que tem um pequeno erro na linha:[code:1:b9b4397d24]  Lista.Delimiter := �.�; [/code:1:b9b4397d24]seria uma �,� no lugar do �.� => [code:1:b9b4397d24]  Lista.Delimiter := �,�; [/code:1:b9b4397d24]acho que entendi o seu exemplo .Valeu Rjun pela dica !!!!...

Edivaldo_ap · Answer

Rog�rio Seguinte:Estou desenvolvendo um sistema cont�bil... eu fiz o seguinte para o formato do Plano de contas...Criei uma tela de parametros com um campo dbedit nele o usu�rio digita o formato do plano exemplo 9.9.99.9999 e grava numa tabela do banco.... peguei o que voc� postou a� e consegui dividir a string, o que eu gostaria agora � ao inv�s de depois de for dar um showmessage, eu gostaria de gravar os campos em algum local, para posteriormente utiliza-los... tipo na hora de o usuario cadastrar um conta de n�vel 2 a mascara ficaria sendo 9.9..Entendeu... segue o que voce posto na p�gina.Edivaldo Andr� Pereiravar   Texto: string;   Lista: TStringList;   i: integer; begin   Texto := �Um, Dois, Tres, Quatro, Cinco�;   Lista := TStringList.Create;   try     Lista.Delimiter := �.�;     Lista.DelimitedText := Texto;     for i := 0 to Lista.Count - 1 do       ShowMessage(Lista.Strings);   finally     FreeAndNil(Lista);   end; end;...

Fabiano G�es · Answer

edivaldo_ap, se for s� o caso de gravar em algum lugar pode ser assim:

var
  Texto: string;
  Lista: TStringList;
  i: integer; 
begin
  Texto := �Um, Dois, Tres, Quatro, Cinco�;
  Lista := TStringList.Create;
  try
    Lista.Delimiter := �,�;
    Lista.DelimitedText := Texto;
    Lista.SaveToFile(�c:\Teste.txt�); // <== 
  finally
    FreeAndNil(Lista);
  end;
end;

agora se for gravar no Banco de Dados � um pouco diferente, porem muito simples tb..

Um abra�o !!!!

Edivaldo_ap · Answer

Fabiano seria o caso de salvar no banco, porque vou usar sempre isso.Edivaldo....

F�rum String #296913