Bumped by Community user
Bumped by Community user
Bumped by Community user
Bumped by Community user
Bumped by Community user
Bumped by Community user
Bumped by Community user
falta de um <br>
Fonte Link
user101552
user101552

Preencher linha do StringGrid com variável de N caracteres

Saudações a todos

estou usando este código só para jogar as letras sem valores no stringgrid


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[i]; // 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 ] .........

Preencher linha do StringGrid com variável de N caracteres

Saudações a todos

estou usando este código só para jogar as letras sem valores no stringgrid


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[i]; // 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 ] .........

Preencher linha do StringGrid com variável de N caracteres

Saudações a todos

estou usando este código só para jogar as letras sem valores no stringgrid


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[i]; // 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 ] .........

formatação
Fonte Link
user101552
user101552

Preencher linha do StringGrid com variável de N caracteres

Saudações a todos

estou usando este código só para jogar as letras sem valores no stringgrid


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[i]; // 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 ] .........

Preencher linha do StringGrid com variável de N caracteres

Saudações a todos

estou usando este código só para jogar as letras sem valores no stringgrid


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[i]; // 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 ] .........

Preencher linha do StringGrid com variável de N caracteres

Saudações a todos

estou usando este código só para jogar as letras sem valores no stringgrid


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[i]; // 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 ] .........

Fonte Link
user101552
user101552

Preencher linha do StringGrid com variável de N caracteres

Preencher linha do StringGrid com variável de N caracteres

Saudações a todos

estou usando este código só para jogar as letras sem valores no stringgrid


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[i]; // 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 ] .........