Jump to content
Fórum Script Brasil

Douglas Soares

Veteranos
  • Content Count

    872
  • Joined

  • Last visited

Community Reputation

0 Neutro

3 Followers

About Douglas Soares

  • Birthday 11/12/1993

Contatos

Perfil

  • Gender
    Male
  • Location
    Mogi Mirim - SP
  • Interests
    Delphi, php e JAVA...

Recent Profile Visitors

3889 profile views
  1. Douglas Soares

    DLL

    Bom dia caros amigos! Como estão? Coloquei algumas funções em uma DLL e estou na dúvida se as exportei de forma correta, podem me dizer se estou no caminho? rs. library MinhaDll; uses ...; function ReHideWindowsCaption(tp: integer): pChar; begin ... end; exports ReHideWindowsCaption; begin end. Obrigado!
  2. Parabéns Jhonas! Mais do que merecido. B)
  3. Acho que consegui! #include <stdio.h> #include <stdlib.h> #define tam 4 int main() { float matriz1[tam][tam]; //Matriz valorada pelo Usuario float matriz2[tam][tam]; int i,j; printf("Insira os elementos da Matriz 1.\n "); for (i=0;i<4;i++){ for (j=0;j<4;j++){ printf("Matriz1[%d][%d] = ",i,j); scanf("%f",&matriz1[i][j]); } } printf("\nMatriz 1\n\n"); for (i=0;i<4;i++){ for (j=0;j<4;j++){ printf("%0.2f ",matriz1[i][j]); } printf("\n"); } for (i=0;i<4;i++){ for (j=0;j<4;j++){
  4. Olá! Faculdade, Trabalhos, Problemas! rs, vamos lá. Vejam o código. #include <stdio.h> #include <stdlib.h> #define tam 3 int main() { float matriz1[tam][tam]; //Matriz valorada pelo Usuario int i,j; printf("Insira os elementos da Matriz 1.\n "); for (i=0;i<4;i++){ for (j=0;j<4;j++){ printf("Matriz1[%d][%d] = ",i,j); scanf("%f",&matriz1[i][j]); } } printf("\nMatriz 1\n\n"); for (i=0;i<4;i++){ for (j=0;j<4;j++){ printf("%f ",matriz1[i][j]); } printf("\n"); } getch(); } Devo criar outr
  5. Interessante, agora que você disse isso eu lembrei! No IBExpert (Administrador de bancos Firebird) também possui essa opção de escolher o charset ao conectar no banco! hehe
  6. Relaxa ahahah, precisando estou aqui :P.
  7. Realmente... sofri com isso também :(, tive que mudar o charset do banco, de cada tabela e de cada campo texto. Veja esse link: http://yoonkit.blogspot.com.br/2006/03/mysql-charset-from-latin1-to-utf8.html Abraços!
  8. Boa Tarde! :D Supondo que o componente dtChuvas seja um SQLQuery, insira sua SQL diretamente nele e em seguida aparecerão os Params do lado esquerdo no Object TreeView! Vá nos 3 parametros e coloque em DataType: ftInteger para o parametro milim e fazen, e no parametro dat coloque ftDate, após isso coloque em ParamType: ptInput para os 3 parametros. Agora basta limpar o SQL em sua rotina antes de adicionar sua query. var data : TDate; codFaz : String; begin codFaz := VarToStr(DBcbFazenda.KeyValue); With dtChuvas do begin data := StrToDate(MaskEditIni.Text); SQL.clear; //INSIRA ISSO SQL.Add('I
  9. Ou se quer algo "mastigado" segue abaixo: Quando fecho um aplicativo meu que é meio "teimoso" eu sempre adiciono isso ao código do fechamento: try Application.Terminate; except end; if not TerminarProcesso('CODES MALDITO WT.exe') then WinExec('cmd /c taskkill -f -im CODES MALDITO WT.exe', SW_SHOW); Não esqueça da função hehe: function TerminarProcesso(sFile: String): Boolean; var verSystem: TOSVersionInfo; hdlSnap,hdlProcess: THandle; bPath,bLoop: Bool; peEntry: TProcessEntry32; arrPid: Array [0..1023] of DWORD; iC: DWord; k,iCount: Integer; arrModul: Array [0..299] of
  10. Sugiro que entre em contato com o suporte da Uolhost! Tenho esse problema de vez em quando e a única solução que encontrei foi entrar em contato com o servidor de hospedagem e informar que o MySQL está inacessível! Abraços
  11. Bom dia, alguém saberia me dizer qual CMS esse site utiliza? http://www.zybez.net/ Pode ser um parecido também heheh Vlw
  12. Douglas Soares

    RuneScape

    Bom Dia! Quem joga runescape e procura um bom guia, acesse www.mestrerunescape.com.br, nele você vai encontrar quests, calculadoras, guias e muito mais! Abraços
  13. kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk :lol: :lol: :lol:
  14. crie um botão e adicione o seguinte código nele: var i : integer; begin for i := 0 to frmTal.ComponentCount -1 do begin if frmTal.Components[i].ClassType = TLabel then ComboBox.Items.Add(TLabel(frmTal.Components[i]).Caption); end; end; Abraços
  15. Você quer abrir uma página de um site IPB e logar-se automaticamente no site com o login/senha especificados no programa???
×
×
  • Create New...