• 0
Sign in to follow this  
acss

StringGrid pegar string com separadores e transforamar em celulas separadas

Question

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  ] 

 

 

 

 

 

Share this post


Link to post
Share on other sites

4 answers to this question

Recommended Posts

  • 0

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

Share this post


Link to post
Share on other sites
  • 0

 

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

 

 

 

 

 

 

 

Edited by acss
desculpe tinha um erro na digitação

Share this post


Link to post
Share on other sites
  • 0
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?

 

 

 

Edited by acss

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this