Jump to content

LazaroBinda

Members
  • Content count

    28
  • Joined

  • Last visited

Community Reputation

3 Comum

About LazaroBinda

  • Birthday 05/07/1986

Informações Pessoais

  • Sexo
    Masculino
  1. LazaroBinda

    Comando Sql Update

    cod_usuario é diferente de codusuario. :)
  2. LazaroBinda

    Comando Sql Update

    Não entendi o que vc quiser com isso. Parametros e Fields são coisas distintas no dataset. A principal vantagem de se usar o nome dos parâmetros é a facilidade de analisar o código posteriormente. Porém é melhor vc fazer da forma que te deixa mais à vontade.
  3. LazaroBinda

    Comando Sql Update

    Faça o Seguinte: Utilize a query de Update conforme Chrnos te passou: 'UPDATE USUARIO SET nome = :nome, cpf = :cpf, email = :email, usuario = :usuario, senha = :senha WHERE cod_usuario = :cod_usuario'; E daí seta seus parâmetros pelo nome: Datamodule2.ADODataSet1.Parameters.ParamByName('nome').Value :=Edit1.Text; Datamodule2.ADODataSet1.Parameters.ParamByName('cpf').Value :=Edit2.Text; Datamodule2.ADODataSet1.Parameters.ParamByName('email').Value :=Edit3.Text; Datamodule2.ADODataSet1.Parameters.ParamByName('usuario').Value :=Edit4.Text Datamodule2.ADODataSet1.Parameters.ParamByName('senha').Value :=Edit5.Text Datamodule2.ADODataSet1.Parameters.ParamByName('cod_usuario').Value :=Edit6.Text
  4. LazaroBinda

    Comando Sql Update

    Seu Update deveria ser como o Chrnos colocou aí:
  5. LazaroBinda

    Trabalhar com arquivo TXT filtro

    Veja se te serve: function TForm1.ChecaArquivo(arq: string): TStrings; var s, s1: TStrings; i, j, k: Integer; r: string; begin s := TStringList.Create; s1 := TStringList.Create; Result := TStringList.Create; try try s.Delimiter := ' '; s.StrictDelimiter := True; s1.LoadFromFile(arq); for i := 0 to s1.Count - 1 do //Qtdade de Linhas begin s.DelimitedText := s1[i]; k := 0; r := ''; for j := 1 to 25 do begin if (StrToInt(s[s.Count -1]) < j) or (StrToInt(s[j - k - 1]) <> j) then begin r := r+ Format('%2.2d', [j])+' '; Inc(k); end; end; if r <> '' then Result.Add(Trim(r)); end; finally s1.Free; end; except Result.Free; end; end; Pra vc usar seria: procedure TForm1.Button1Click(Sender: TObject); var arqResult: TStrings; begin arqResult := ChecaArquivo('arquivo.txt'); try arqResult.SaveToFile('arquivo1.txt'); finally arqResult.Free; end; end; Veja que este método só te serve se os número gravados em seu arquivos forem sempre em ordem crescente...
  6. LazaroBinda

    Comando Sql Update

    A sintaxe correta pra Update é: Update Table NomeTabela Set Campo1 = :Valor1, Campo2 = :Valor2 ... CampoN = :ValorN. Sendo assim: Seu update deveria ficar: UPDATE USUARIO SET Campo1 = :nome, Campo2 = :cpf, Campo3 = :email, Campo4 = :usuario, Campo5 = :senha WHERE Campo 6 = :cod_usuario Outra Coisa: O índice dos parâmetros não está associado ao nome deles, e sim à ordem em que eles aparecem na query. Talvez seria melhor vc usar o ParamByName. No caso acima ficaria: QueryCad_Usuarios.ParamByName('nome').AsString := Edit1.Text; //codigo Usuário
  7. LazaroBinda

    Evento OnCalcFields

    Vc pode usar a Função YearsBetween: uses System.DateUtils; var DataMaior, DataMenor: TDateTime; YearsBetween(DataMaior, DataMenor);
  8. LazaroBinda

    Como exibir coordenadas em um mapa?

    Vc pode colocar o mapa dentro de um TImage e alinhar as coordenadas [0, 0] do mapa com as coordenadas [0, 0] do TImage depois usar o canvas do Timage pra pintar os pontos no mapa. Claro que vc vai ter que mapear a escala...
  9. LazaroBinda

    Problema com API PrintWindow

    Tente usar a função BitBlt. Ex: BitBlt(bmp.Canvas.Handle, 0, 0, bmp.Width, bmp.Height, GetWindowDC(H2), 0, 0, SRCCOPY);
  10. LazaroBinda

    Como copiar uma palavras de um TMemo e transferila para um edit

    Vc pode user o método IndexOf do TStrings: Memo1.Lines.IndexOf('SuaLinha'); Esse método retorna o índice do elemento caso ele o encontre ou retorna -1 caso não encontre. Veja que este método só vai encontrar o elemento se vc digitar exatamente como está na linha do seu memo, isso significa que 'Ativo' é diferente de 'ativo' e 'ativo' é diferente de 'ativo '. Se a sua linha for montada por vc via código e não recebe interferência do usuário, vc pode usar esse método. Caso contrário, recomendo que vc faça uma função percorrendo as linhas do memo. Vc pode user o método IndexOf do TStrings: Memo1.Lines.IndexOf(&%2
  11. LazaroBinda

    Traduzindo delphi para Assembly (MASM32)

    Vc pode ver isso direto no delphi. Coloque um breakpoint no seu código e compile-o. Quando estiver no modo depuração, aperte Ctrl+Alt+C. Vc verá a janela Entire CPU, que nada mais é o arquivo obj que o delphi gera quando compila seu programa. Vc pode inclusive continuar a depuração direto dele.
  12. LazaroBinda

    Matriz de strings, é possível?

    Sim, é possível. O que vc precisa é de um array de array. Ex: char palavra[20][20] // 20 palavras com 20 caracteres cada Se vc quiser algo mais dinâmico utilize array de ponteiro. Ex: char *palavra[20]; // 20 palavras com quantidade variável de caracteres. Obs: Necessita alocação dos caracteres. Ex: palavra[0] = malloc(sizeof(char[50]));
  13. LazaroBinda

    Função e ponteiro

    Veja se te serve: #include<stdio.h> enum tpSoma { PAR = 0, IMPAR = 1 }; int soma(int *p, int count, enum tpSoma tp); int main(){ int A[20],i; puts("Digite 20 numeros:\n"); for(i=0;i<20;++i){ scanf("%d", &A[i]); } printf("Soma dos Pares: %d\n", soma(A, 20, PAR)); printf("Soma dos Impares: %d", soma(A, 20, IMPAR)); return 0; } int soma(int *p, int count, enum tpSoma tp){ int i, sum = 0; for(i=0;i<count;++i) { if (*(p + i) % 2 == (int)tp) sum += *(p + i); } return sum; }
  14. LazaroBinda

    Código em C não dando o resultado esperado

    Qual ide vc está usando pra pascal??? Tenho minhas dúvidas se ele carrega valor default.
  15. LazaroBinda

    Como gravar uma matriz float aleatoria em arquivo txt !?

    Veja se te ajuda int gravadados(float arr[][50], int qtdProvas, int qtdAlunos) { int i, j; FILE *file; if (!(file = fopen("C:\\ttt.txt", "w"))) { printf("Erro ao gravar arquivo"); return 1; } fwrite(&qtdAlunos, sizeof(int), sizeof(int), file); fwrite(&qtdProvas, sizeof(int), sizeof(int), file); for (i = 0; i < qtdAlunos; i++) for (j = 0; j < qtdProvas; j++) fwrite(&arr[i][j], sizeof(float), sizeof(float), file); fclose(file); free(file); return 0; } int ledados(float arr[][50], int &qtdProvas, int &qtdAlunos) { int i, j; FILE *file; if (!(file = fopen("C:\\ttt.txt", "r"))) { printf("Erro ao ler arquivo"); return 1; } fread(&qtdAlunos, sizeof(int), sizeof(int), file); fread(&qtdProvas, sizeof(int), sizeof(int), file); for (i = 0; i < qtdAlunos; i++) for (j = 0; j < qtdProvas; j++) fread(&arr[i][j], sizeof(float), sizeof(float), file); fclose(file); free(file); return 0; }
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.