Boa tarde. Tenho o seguinte c�digo abaixo que me retorna a quantidade de vezes que uma numera��o saiu por coluna. [code=delphi]procedure TForm1.Button1Click(Sender: TObject);var Linha: TStringLis...

Memo No Delphi/Firemonkey (Visualizar na vertical)

05/03/2024

Boa tarde. Tenho o seguinte c�digo abaixo que me retorna a quantidade de vezes que uma numera��o saiu por coluna.

procedure TForm1.Button1Click(Sender: TObject);
var
  Linha: TStringList;
  Dezenas: array [1..15, 1..25] of Integer;
  Resultado: string;
  i, j, k: Integer;
begin
  // Inicializa a matriz de contagem de dezenas por posi��o
  for i := 1 to 15 do
    for j := 1 to 25 do
      Dezenas[i, j] := 0;

  // Percorre linha a linha do MemoResultado
  for i := 0 to MemoResultado.Lines.Count - 1 do
  begin
    Linha := TStringList.Create;
    try
      Linha.Delimiter := ' ';
      Linha.StrictDelimiter := True;
      Linha.DelimitedText := MemoResultado.Lines[i];

      // Conta as dezenas por posi��o
      for j := 0 to Linha.Count - 1 do
      begin
        k := StrToInt(Linha[j]);
        Inc(Dezenas[j mod 15 + 1, k]);
      end;
    finally
      Linha.Free;
    end;
  end;

  // Monta a string de resultados
  Resultado := '';
  for i := 1 to 15 do
  begin
    for j := 1 to 25 do
      Resultado := Resultado + IntToStr(Dezenas[i, j]) + #9; // Adiciona o valor separado por TAB
    Resultado := Resultado + sLineBreak; // Adiciona uma quebra de linha ao final de cada linha
  end;

  // Exibe o resultado no MemoObsForasDoFiltros
  MemoPosicao.Text := Resultado;
end;

N�o estou conseguindo fazer com que a visualiza��o no MemoPosicao fique na horizontal (25 linhas e 15 Colunas).
Para testarem o que estou fazendo alimentar o MemoResultado com essas linhas abaixo:
02 03 05 06 09 10 11 13 14 16 18 20 23 24 25
01 04 05 06 07 09 11 12 13 15 16 19 20 23 24
01 04 06 07 08 09 10 11 12 14 16 17 20 23 24
01 02 04 05 08 10 12 13 16 17 18 19 23 24 25
01 02 04 08 09 11 12 13 15 16 19 20 23 24 25
01 02 04 05 06 07 10 12 15 16 17 19 21 23 25
01 04 07 08 10 12 14 15 16 18 19 21 22 23 25
01 05 06 08 09 10 13 15 16 17 18 19 20 22 25
03 04 05 09 10 11 13 15 16 17 19 20 21 24 25
02 03 04 05 06 08 09 10 11 12 14 19 20 23 24
02 06 07 08 09 10 11 12 16 19 20 22 23 24 25
01 02 04 05 07 08 09 10 11 12 14 16 17 24 25
03 05 06 07 08 09 10 11 13 14 15 16 17 19 23
01 02 05 06 07 09 13 14 15 18 19 20 21 23 25
01 02 04 06 08 10 12 15 16 18 19 21 23 24 25
02 05 06 07 08 10 12 13 15 17 19 21 23 24 25
01 02 03 05 06 07 09 13 14 16 17 18 19 20 21
02 06 07 08 10 11 14 15 17 18 19 20 22 23 24
02 05 06 07 08 10 11 13 14 15 16 17 20 23 24
03 04 06 07 08 09 10 14 16 17 18 19 20 23 24
01 02 04 05 08 11 14 16 18 19 20 22 23 24 25
01 02 03 04 05 06 07 09 10 12 13 14 15 22 25
01 03 04 05 06 08 10 11 12 14 16 17 18 19 20
01 02 03 05 07 10 11 14 17 19 20 21 23 24 25
01 02 03 04 05 06 07 09 13 14 16 20 22 23 24

Poderiam me ajudar.

Rubens Pena

Curtir t�pico + 0

Responder

Posts

06/03/2024

Arthur Heinrich

Aparentemente, seu problema est� na montagem final:

  // Monta a string de resultados
  Resultado := '';
  for i := 1 to 15 do
  begin
    for j := 1 to 25 do
      Resultado := Resultado + IntToStr(Dezenas[i, j]) + #9; // Adiciona o valor separado por TAB
    Resultado := Resultado + sLineBreak; // Adiciona uma quebra de linha ao final de cada linha
  end;

Pelo que entendi, o primeiro �ndice indica a coluna, que vai de 1 a 15. O segundo �ndice � a linha.

Ao montar o resultado, voc� deve montar linha a linha, concatenando o conte�do de cada coluna. Portanto, o loop externo, deve ser o da linha e n�o o da coluna.

  // Monta a string de resultados
  Resultado := '';
  for j := 1 to 25 do
  begin
    for i := 1 to 15 do
      Resultado := Resultado + IntToStr(Dezenas[i, j]) + #9; // Adiciona o valor separado por TAB
    Resultado := Resultado + sLineBreak; // Adiciona uma quebra de linha ao final de cada linha
  end;

Por�m, h� uma otimiza��o que voc� pode fazer. N�o � necess�rio criar e destruir o TStringList a cada linha retornada do Memo.

    Linha := TStringList.Create;
    try
      Linha.Delimiter := ' ';
      Linha.StrictDelimiter := True;

      // Percorre linha a linha do MemoResultado
      for i := 0 to MemoResultado.Lines.Count - 1 do
      begin
        Linha.DelimitedText := MemoResultado.Lines[i];
 
        // Conta as dezenas por posi��o
        for j := 0 to Linha.Count - 1 do
        begin
          k := StrToInt(Linha[j]);
          Inc(Dezenas[j mod 15 + 1, k]);
        end;
      end;
    finally
      Linha.Free;
    end;

Responder

Gostei + 0