acss

Membros
  • Content Count

    70
  • 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. 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?
  2. 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
  3. 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;
  4. 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
  5. 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;
  6. 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
  7. 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 ]
  8. 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
  9. 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
  10. 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;
  11. Olá a todos, fiz aqui a tempo atrás e ficou meio grande pra aquilo que estou precisando usando ifs, se servir prá alguém está ai, se alguém tiver alguma sugestão de como diminuir e quiser compartilhar agradeço procedure TForm1.Button1Click(Sender: TObject); Var A,B,C, valor, VARIAVEL: real; begin begin valor:=StrToFloat(Edit1.Text); A := 1 ; B:= 30; C:= 60; begin IF (valor>= A) and (VARIAVEL <=29.59 ) THEN Label1.Caption := ('A'); end; begin IF (valor>= B) and (VARIAVEL <=59.59 ) THEN Label1.Caption := ('B');end; begin IF (valor>= C) and (VARIAVEL <= 89.59) THEN Label1.Caption := ('C');end; begin IF Label1.Caption = ('A') THEN Label2.Caption := ('preto');end; begin IF Label1.Caption = ('B') THEN Label2.Caption := ('vermelho'); end; begin IF Label1.Caption = ('C') THEN Label2.Caption := ('verde'); end; end; end;
  12. Olá amigos Preciso de uma ajuda e quem poder dar uma força agradeço, como que posso fazer através do código uma variável A que cubra uma faixa de valores que vai 1 até 29,59 , que a variável B cubra uma faixa de valores que vai 30 até 59,59 assim por diante 1..29,59 := (A); 30..59,59 := (B); 60.. 89,59 := (C); 90..119,59 := (D); 120..149,59 := (E); 150..179,59 := (F);
  13. esse é bem bacana vai dar certinho, Jhonas, tudo de bom prá você, obrigado