-
Content Count
864 -
Joined
-
Last visited
Community Reputation
0 NeutroAbout Douglas Soares

- Birthday 11/12/1993
Contatos
- MSN
-
ICQ
0
-
Skype
douglas.srs12
Perfil
-
Gender
Male
-
Location
Mogi Mirim - SP
-
Interests
Delphi, php e JAVA...
Recent Profile Visitors
4061 profile views
-
Douglas Soares changed their profile photo
-
valSistemasDelphi started following Douglas Soares
-
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!
-
Parabéns Jhonas! Mais do que merecido. B)
-
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++){
-
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
-
(Resolvido) Lazarus - problema visualizando caracteres acentuados
Douglas Soares replied to Micheus's question in Delphi, Kylix
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 -
Relaxa ahahah, precisando estou aqui :P.
-
(Resolvido) Lazarus - problema visualizando caracteres acentuados
Douglas Soares replied to Micheus's question in Delphi, Kylix
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! -
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
-
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
-
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
-
Bom dia, alguém saberia me dizer qual CMS esse site utiliza? http://www.zybez.net/ Pode ser um parecido também heheh Vlw
-
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
-
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk :lol: :lol: :lol:
-
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
-
[Duvida] Sistema de login de fóruns IPB 3.1 em Delphi
Douglas Soares replied to Killer's question in Delphi, Kylix
Você quer abrir uma página de um site IPB e logar-se automaticamente no site com o login/senha especificados no programa???