Como transformo uma String em um conjunto ?

Question

tipo axSTR := �1,2,3�if 1 in axSTR then como se fosse : if 1 in [1,2,3] then...

Nildo · Answer

[quote:165bf4be1e=�programadorjlle�]tipo axSTR := �1,2,3�if 1 in axSTR then como se fosse : if 1 in [1,2,3] then[/quote:165bf4be1e]Transforme axSTR em �1,2,3[b:165bf4be1e],[/b:165bf4be1e]� (com a v�rgula no final)e use:[code:1:165bf4be1e]if pos( �1,�, axSTR ) <> 0 then ShowMessage( �Existe� );[/code:1:165bf4be1e]ou ent�o[code:1:165bf4be1e]if pos( inttostr( 1 ) + �,�, axSTR ) <> 0 then ShowMessage( �Existe� );[/code:1:165bf4be1e]Espero ter ajudado...

Programadorjlle · Answer

mas nao posso usar o POS pq se tiver assim [�1�] ai ele nao acha
nao tem como coverter a string em um conjunto ?

[quote:f2688e262a=�programadorjlle�]tipo axSTR := �1,2,3� if 1 in axSTR then como se fosse : if 1 in [1,2,3] then

Transforme axSTR em �1,2,3[b:f2688e262a],[/b:f2688e262a]� (com a v�rgula no final)

e use:

if pos( �1,�, axSTR ) <> 0 then
   ShowMessage( �Existe� );

ou ent�o

if pos( inttostr( 1 ) + �,�, axSTR ) <> 0 then
   ShowMessage( �Existe� );

Espero ter ajudado[/quote:f2688e262a]

Nildo · Answer

mas entao � s� n�o usar [�1�], � s� usar do jeito que eu falei, e trocar o IN pelo POS...

Briciosm · Answer

N�o sei se entendi?Mas acho que � isso...variavelstring:=�texto 12343455...�//ver se existe a substring na stringif pos(�1�,variavelstring)<>0 thenbegin   //inserir substring na string   insert(�xxx�,variavelstring,pos(�1�,variavelstring)-1);end;...

Marcelo Saviski · Answer

Converter String em conjunto, poderia ser assim:

var
  Texto: string;
  Conjunto: TSysCharSet;
  I: Integer;
begin
  Texto := �123�;
  Conjunto := [];
  for I := 1 to Length(Texto) do
    Include(Conjunto, Texto[I]);
  //Agora vc vai ter um Conjunto de caracteres
  //Conjunto = [�1�, �2�, �3�]
end;

Aroldo Zanela · Answer

Colega,A forma de menor esfor�o � utilizando a classe TStringList....

Nildo · Answer

[quote:271c1a27ff=�Aroldo Zanela�]Colega,

A forma de menor esfor�o � utilizando a classe TStringList.[/quote:271c1a27ff]

Eu, particularmente, evito usar classes onde m�todos/propriedades ocupam espa�o a toa na mem�ria. Ele n�o usaria todos os recursos da TStringList... bom, mas se velocidade/mem�ria n�o forem o problema, � a forma mais facil mesmo.

F�rum Como transformo uma String em um conjunto ? #267838