acss

Membros
  • Content Count

    73
  • Joined

  • Last visited

Community Reputation

0 Neutro

About acss

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Olá pessoal, saudações tenho 10 memos (aqui coloquei só 5 memos pra exemplificar) todos os memos possui 100 linhas cada um e todas as palavras já estão quebradas como no exemplo abaixo , preciso juntar e concatenar todas as linhas da mesma ordem de linha crescente de cada memo até chegar na ultima linha 100, exibir no último memo no caso o memo6, agradecido. memo1 (esse memo pega o ano do edit incrementa até 100) 1970 1971 1972 1973 memo2 palavraA1 palavraA2 palavraA3 palavraA4 memo3 palavraB1 palavraB2 palavraB3 palavraB4 memo4 palavraC1 palavraC2 palavraC3 palavraC4 memo5 palavraD1 palavraD2 palavraD3 palavraD4 memo6 Resultado no memo 6 seria juntar os textos dos 5 memos nele ------------------------------------- 1970 palavraA1 palavraB1 palavraC1 palavraD1 1971 palavraA2 palavraB2 palavraC2 palavraD2 1972 palavraA3 palavraB3 palavraC3 palavraD3 1973 palavraA4 palavraB4 palavraC4 palavraD4 ....................................... ....................................... .......................................
  2. Olá pessoal, pra que tiver precisando esse código pode ajudar program teste; var vetor :Array of String; n,i : integer; texto : string; begin texto :=Edit1.Text; n := length(texto); SetLength(vetor,n); // seta o valor máximo do array. for i:=1 to high(vetor) do begin vetor := copy(texto,i,1)+ #13#10; end; //Array para impressão for i:=1 to high(vetor) do begin memo1.Lines.Add(a); // write(vetor); // Showmessage(vetor); end end.
  3. 🙂 Bom Dia Se copio cada caractere individualmente do edit e dando uma quebra de linha com #13#10, uso um código como esse, só que dependendo do programa fica muito cheio de variveis procedure TForm1.Button1Click(Sender: TObject); var a,b,c,d,e:string; begin a:=copy(Edit1.Text,1,1)+ #13#10; b:=copy(Edit1.Text,2,1)+ #13#10; c:=copy(Edit1.Text,3,1)+ #13#10; d:=copy(Edit1.Text,4,1)+ #13#10; e:=copy(Edit1.Text,5,1)+ #13#10; memo1.Lines.Add(concat (a + B + C + d )); end; Não teria um jeito mais simples de se fazer mesmo enxugando o código acima usando um laço for, while ou de outra maneira, para usar apenas uma variável? tipo assim: procedure TForm1.Button1Click(Sender: TObject); var a:string; i:integer ; begin for i:=1 to Length(Edit1.text) do a:=(copy(Edit1.Text,i,1)+ #13#10); memo1.Lines.Add(a + IntToStr(i)); end;
  4. acss

    TMemo

    Saudações Alguém poderia me informar se é possivel, dois TMemo um ao lado da outra, ambas com a mesmas dimensões e mesma quantidade de linhas , Atuar em conjunto os dois ScrollBars (ScrollBars:= ssVertical) de ambas ao mesmo tempo, enquanto o mouse manualmente movimenta para cima ou para baixo na barra vertical deslizante de qualquer um dos TMemo?
  5. Saudações Leonarn Persan, muito agradecido a você é realmente complicado porque não sei a quantidade que virá de variáveis e essa é apena um dos problemas, ainda tenho que dar um valor de 0 a 9 para cada letra, que significa o tanto de células que cada letra ocupara estou trabalhando com umas ideias aqui, vai dar muito trabalho, mas sou persistente e vou conseguir , nem se tiver que copiar letrinha por letrinha e prenchendo manualmente a mão, kk Eu vou lá dar uma olhada no Link que você passou mais já ti agradecendo antecipademente por sua ajuda Abraços, tudo de bom
  6. Quebra de strings Saudações a todos Usando a procedure abaixo, gostaria de pegar N variaveis ,s1,s2,s3..... que vai vir do edit, pra poder usar ela em outros lugares , mas não sei quantas variaveis terá pela dependência do que estiver escrito no edit pra mais ou prá menso para dar a quebras. Mas se o edit estiver vazio, ou não tiver quebras suficientes pra preenceher qualquer uma das variaveis S1,S2 .... ou nenhumas delas, conto com a juda de vocês para uma orientação do que poderia ser feito pra não dar erro de execução ou mensagem de erro no programa, Agradeçido Procedure Quebra( Input: String; Separador: String; Var ListString: AStrings ); Var Resultado: TStringList; idLst: Integer; Begin // Previne que exista elementos maiores que Resultado.Count // uma vez que se trata de variável externa. SetLength( ListString, 0 ); Resultado := TStringList.Create; Try // Possibilita que seja utilizada uma sequencia de caracteres como delimitador Resultado.Text := StringReplace( Input, Separador, #13#10, [ rfReplaceAll ] ); // Define novo tamanho para a matriz SetLength( ListString, Resultado.Count ); For idLst := 0 To Pred( Resultado.Count ) Do ListString[ idLst ] := Resultado[ idLst ]; Finally Resultado.Free; End; End; procedure TForm1.Button1Click(Sender: TObject); Var aTexto: aStrings; s1,s2,s3,s4,s5...... :string; Begin Quebra( Edit1.Text , ' ', aTexto ); s1:= aTexto[ 0 ]; s2:= aTexto[ 1 ]; s3:= aTexto[ 2 ]; .......... End;
  7. 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
  8. olá a todos Tem como jogar todos os itens tabulados do ListBox para o StrinGrid em sequência, cada item numa célula separada na mesma linha? procedure TForm1.Button1Click(Sender: TObject); begin ListBox1.Items.Add('PrimeiraColuna'^I'Segunda'^I'Terceira') ; end;
  9. 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
  10. 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 ]
  11. oi Niltinho, obrigado eu vou estudando o que você disse mas o problema estou encontrando que não sei a quantidade algarismos que vai ter essa váriavel , e se tivesse um código exemplo em delphi ficaria mais simples, minha matemática é apenas o básico tava pensando em separar separar essa variavel em arrays e fazer o procesamento em modo automático, mas não conheço comando para isso, e nos livros e exemlos que tenho aqui não tem nada igual Vou tentando como disse com Switch/Case, mas acho que vou embrulhar com essa variável Muito agradeçido e obrigado Niltinho outra vez pela sua ajuda
  12. Olá pessoal, preciso de uma ajuda implementar essa funcionalidade mas não sei qual melhor solução e nem de como fazer isso Por exemplo eu tenho e tenho valor conhecido (constante), e um numero varíavel com n quantidades de algarismos preciso somar esse valor conhecido, com cada algarismo dessa variavel e pegar o resultado de cada soma, de forma automático e mostar no memo Por exemplo se o valor conhecido = 3 e a variável = 1297 operação a ser realizada 3+ 1 = 4 3 + 2 = 5 3 + 9 =12 3+ 7 = 10 resultado no memo 4 5 12 10 ------------ Agradecido
  13. desculpe pessoal aqui no Lazarus tem colocar estes itens "A,B,C, valor, VARIAVEL" , não no button1 e sim na váriavel global, prá não dar erro não sei porque deu esse erro, fiz a atualização do lázarus esses dias, vou dar uma olhada se ocorre isso na versão anterior e qualquer coisa informo a vocês, Então é isso, abraços var Form1: TForm1; A,B,C: real; valor, VARIAVEL: real;