CorN_Sk8

bom cara, eu tentei ajeitar sua formula mais nem consegui, deu outro resultado, mais em delphi você declara na USES math; e usa a função POWER R := Power(2, 3); R = 8 em pascal era era EXP ou SQRT eu axo ambos com o mesmo parametro, tenta ai

e laia, é só você processar as mensagems do programa procedure TForm1.ButgeretiqClick(Sender: TObject); var numini, numfin, digver, numetiq, contador:integer; begin numini:=strtoint(Ednumini.Text); numfin:=strtoint(Ednumfin.Text); digver:=strtoint(Eddigver.Text); for numetiq:=numini To numfin Do begin Labgeretiq.caption:=inttostr(numetiq); Application.ProcessMessages; Sleep(100); // nem precisa mas, é porque o processador conta muito rapido end; end;

se eu não me engano você tem que usar mysql_fetch_array();

ai uma funcao, coloque na clausula Uses Registry; function VerSaoWindows: string; stdcall; var VerInfo: TOsversionInfo; PlatformId, VersionNumber: string; Reg: TRegistry; begin VerInfo.dwOSVersionInfoSize := SizeOf(VerInfo); GetVersionEx(VerInfo); // Detect platform Reg := TRegistry.Create; Reg.RootKey := HKEY_LOCAL_MACHINE; case VerInfo.dwPlatformId of VER_PLATFORM_WIN32s: begin // Registry (Huh? What registry?) PlatformId := 'Windows 3.1'; end; VER_PLATFORM_WIN32_WINDOWS: begin // Registry Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion', False); PlatformId := Reg.ReadString('ProductName'); VersionNumber := '( ' + Reg.ReadString('VersionNumber') + ' )'; end; VER_PLATFORM_WIN32_NT: begin // Registry Reg.OpenKey('\SOFTWARE\Microsoft\Windows NT\CurrentVersion', False); if Reg.ReadString('CSDVersion') = '' then Reg.WriteString('CSDVersion','Sem Atualização'); PlatformId := Reg.ReadString('ProductName') + ' ( ' + Reg.ReadString('CSDVersion') + ' )'; VersionNumber := ' 4( 15' + Reg.ReadString('CurrentVersion') + ' - ' + Reg.ReadString('CurrentBuildNumber') + ' )'; end; end; Reg.Free; Result := PlatformId + ' ' + VersionNumber; end;

cara, tem um componente "TWebBrowser", na paleta internet, ele seria uma Classe do IE, entaum tem tudo, ai você implementa botoes como voltar, avançar, etc

depende do modo que você está carregando a função cara, exemplo: declare em type sFuncao = Procedure(sParametros: string): integer; var DLLName: pChar; hdl: THandle; Funcao: sFuncao; begin DLLName := 'c:\hotplug.dll'; hdl := LoadLibrary(DLLName); Funcao := GetProcessAdress(hdl, 'nomedafuncao'); ShowMessage(IntToStr(Funcao('Parametro'))); esse é um modo de run time, você pode declarar direto assim: Function NomeDaFuncao(sParametros: String): Integer; stdcall; external 'nomedadll.dll'; espero ter ajudado cara

por acaso ninguém sabe como usa Socket em C++ ?! eu peguei um fonte, mas ta pedindo um Header, /sys/socket.h e eu num tenho; to usando DEV++ e Turbo C 3

pelo que eu lembro pode se usar 0 ou 1; obs: acho que isso num vem ao caso mas existe uma funcao no delphi assim: varBool := Combo.itemindex = 1; se itemindex = 1 varbool = true

você tem de usar pchar, porque você está chamando uma função api e como a api do windows é toda feita em pChar, você usa ela; lembre-se que pChar diferente de string cabe apenas 255 caracteres; fuiz

aff, tem certeza que voce quer trabalhar com delphi ?! voce num ta fazendo o edit1 receber o edit2 voce quer receber o texto do edit1 para o edit2.. edit1.text := edit2.text; aew viu como é facil ?!

com um pouco de lógica tudo é possivel, já que voces querem vo fazer um exemplo rapidinho de autentificacao de usuarios com permissoes... primeiro a tabela Campo: usuario | senha |nivel Tipo: varchar(30) | varchar(15) |int(3) essa é tabela comum que eu fiz... agora voce liga ela.. declara em public 2 variaveis: logado: boolean; pemicao: integer; botao logar var usuario: string; senha: string; begin usuario := ed_user.text; senha := ed_senha.text; Table1.Locate('usuario', usuario, [loPartialKey,loCaseInsensitive]);//localiza o campo usuario com o valor do edit ed_user if senha = Table1.fieldbyname('senha').asstring then begin //agora voce executa as acoes apos logar... logado := true; permicao := Table1.fieldbyname('permicao').asinteger; end; agora voce tem o numero da permição do nego, entaum invente por ex voce coloca no menu add... if logado = true then begin if permicao = 1 then frmaddperm1.show;//vai abrir um form de add de acordo com a permissao do nego... end; falow fuiz, é isso aew, invente que no final da tudo certo... o código deve até tar com algums erros aew, mais fala sério, programo a 4 meses e tenho 14 anos , entaum se tiver erro, concerte... fuiz

tem varias maneiras de fazer um "login e senha", depende de que tipo de tabela voce esta usando, etc eu ate postaria um codigo aew para voce, mas não ajudaria, voce consegueria usa-lo algumas vezes, ai se voce precisar de algo mais, começa a complicar sua vida... use um pouco a lógica e faça um bem r0x de acordo com o que você quer... o pior erro do ser humano é não ser persistente em tudo o que faz;

já experimentou mudar o usuario, senha e db ?!

se eu me lembro, o edit num recebe mais de uma linha, use um campo de varias linhas :\ espero ter ajudado