Loop

[Rodrigo Miss 1]

Ola Galera! Bom dia!to com uma pequena duvida :Tenhu uma string =>>>> Str:= 'IMASTER FORUM MUITO MASSA';Gostaria de fazer um loop e separar por palavra essa string e colocar num array;tipowMeuArray[1]:= 'IMASTER';MeuArray[2]:= 'FORUM';MeuArray[3]:= 'MUITO';MeuArray[4]:= 'MASSA';Como eu faria issu???

[Hugo Slepicka 0]

I aew Rodrigo, beleza???

 

Nesse post do nosso amigo Márcio tem um exemplo perfeito para você!!!

 

http://forum.imasters.com.br/index.php?s=&...st&p=724941

 

 

flw aew! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Rodrigo Miss 1]

heheh Vlw Hugo !!! Mah sabe oke eh neh ... cedo preguiça de pensar....

 

tive tentando aki e fiz o seguinte :

 

 

 

procedure TForm1.Button1Click(Sender: TObject);var i: integer;	Str, S: string;	Lst: TStringList;begin  Lst:= TStringList.Create;  Str:= Edit1.Text;  S:= '';  for i:= 1 to length(Str) do  begin	  if Str[i] <> ' ' then	  begin		  S:= S + Str[i];	  end	  else	  begin		  Lst.Add(S);		  S:= '';	  end;  end;  if S <> ' ' then  begin	  Lst.Add(S);  end;  ShowMessage(Lst.Text);end;

 

Axo q naum seria guambiarra .... seria??

[Hugo Slepicka 0]

heheh Vlw Hugo !!! Mah sabe oke eh neh ... cedo preguiça de pensar....

Então acorda...AHuhaUHAuhAUHAU!!!bom, falando sério agora...Não Existe gambiarra, apenas maneiras diferentes de se encarar um problema...E o seu jeito ta certo sim!!!flw awe! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[marcio.theis 3]

Gambiarra não se pode dizer, visto que é um fonte que desenvolveu do zero, que funciona e que você entende...

Isto é Programação Orientada a Gambiarras (POG)

[Rodrigo Miss 1]

HEHEH .... vlw pessoal ... rs

 

 

Mto massa essa de POG ghegegegegg ....

 

rs

[Vinicius Callegaro 0]

O algoritmo de GambiSort lá no POG é meu hehe http://forum.imasters.com.br/public/style_emoticons/default/yay.gif

[Rodrigo Miss 1]

Boa http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif heheh