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 ] .........
matriz
de 2 colunas, armazenando o caractere e o seu valor, e para preencher aStringGrid
, percorrer a string e checar cada caractere na matriz, após achar o caractere, preencher aStringGrid
x vezes dependendo do valor encontrado, e passar pro próximo.