StringGrid pegar string com separadores e transforamar em celulas separadas

[Visitante]

Olá pessoal,  saudações

é possivel transformar uma palavra string de tamanho desconhecido ,  separada pelo separador       ;          em celulas separadas ,no stringrid em uma única linha?

variável :=   t;e;x;t;o

 

nas células do  StringGrid ficaria asssim

[    t  ] [    e  ] [    x ] [    t  ] [    o  ] 

 

 

 

 

 

[Leonardo Persan]

Acho que isso pode te ajudar
https://stackoverflow.com/questions/2625707/split-a-string-into-an-array-of-strings-based-on-a-delimiter

[Visitante]

Saudações Leonardo Persan

 

Agradeçido, desculpe a demora em responder, agora que eu vi a sua mensagem,  e fui lá ver o código, vou testar ele, obrigado.

Acho que não vai dar certo porque tenho stringgrid montado com outros dados, preciso jogar essas informçoes numa linha vaga dela

 

agradeçido se você  ou alguém, em que poder dar um auxilio

[Visitante]

 

eu consegui jogar  os caracteres da variavél  no stringgrid usando TStringList

 

procedure TForm1.Button1Click(Sender: TObject);
var
  t: TStringList;
 // i:integer;
begin
 t := TStringList.create; // cria uma classe
 t.text := stringReplace(Edit1.Text, '|', #13,[rfReplaceAll]);//substitui | por quebra de linha
  for i := 0 to Pred(t.Count) do
      StringGrid1.cells[i+1,2]:=t; // joga todos elementos do edit na stringgrid i+1 para prencher a partir da coluna 2
  t.free; //  destruir a classe
end;

 --------------------------------------

 

 

 

 

seria possível jogar uma varivel desconhecida em nº caracteres em apenas uma linha do StringGrid, sabendo que cada caractere tem um valor, que corresponde a quantidade de colunas que ocupará, usando o TStringList?

 

 

xdyz      a string variável é composta N caracteres
1342     ( cada caractere da string tem um valor e cada uma delas corrresponde a uma quantidade colunas )

    
para:
          
caractere x =  1 células  [ x ]

caractere d =  3 células  [ d ] [ d ][ d ]  

caractere y =  4 células  [ y] [ y ][ y ][ y ]

caractere z =  2 células  [ z] [ z ]

 

resultado final em uma única linha da StringGrid para essa várivel de 4 caracteres

[ x ][ d ][ d ][ d ][ y] [ y ][ y ][ y ][ z] [ z ]  

 

Agradeçido

 

 

 

 

 

 

 

Editado Agosto 8, 2019 por Visitante
desculpe tinha um erro na digitação

[Visitante]

Em 08/08/2019 em 11:06, acss disse:

 

eu consegui jogar  os caracteres da variavél  no stringgrid usando TStringList

 

procedure TForm1.Button1Click(Sender: TObject);
var
  t: TStringList;
 // i:integer;
begin
 t := TStringList.create; // cria uma classe
 t.text := stringReplace(Edit1.Text, '|', #13,[rfReplaceAll]);//substitui | por quebra de linha
  for i := 0 to Pred(t.Count) do
      StringGrid1.cells[i+1,2]:=t; // joga todos elementos do edit na stringgrid i+1 para prencher a partir da coluna 2
  t.free; //  destruir a classe
end;

 --------------------------------------

 

 

 

 

seria possível jogar uma varivel desconhecida em nº caracteres em apenas uma linha do StringGrid, sabendo que cada caractere tem um valor, que corresponde a quantidade de colunas que ocupará, usando o TStringList?

 

 

xdyz      a string variável é composta N caracteres
1342     ( cada caractere da string tem um valor e cada uma delas corrresponde a uma quantidade colunas )

    
para:
          
caractere x =  1 células  [ x ]

caractere d =  3 células  [ d ] [ d ][ d ]  

caractere y =  4 células  [ y] [ y ][ y ][ y ]

caractere z =  2 células  [ z] [ z ]

 

resultado final em uma única linha da StringGrid para essa várivel de 4 caracteres

[ x ][ d ][ d ][ d ][ y] [ y ][ y ][ y ][ z] [ z ]  

 

Agradeçido

 

 

 

 

Ninguém?

 

 

 

Editado Agosto 14, 2019 por Visitante