[Calculo Exponencial]

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

[Ajuda No Loop]

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;

[Dúvidas Sobre Listagem]

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

[Código Para Sistemaoperacional]

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;

[Criar Um Browser Em Delphi]

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

[Acessando Dll]

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

[Socket ...]

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

[Essa é Di Duê]

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

[Concatenar No Delphi]

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

[Variavel Recebe Um Editbox]

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 ?!

[Como Eu FaÇo Login E Senha]

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

[Como Eu FaÇo Login E Senha]

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;

[Erro Em Site Hospedado No Miarroba]

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

[Como Fazer Um Pagina De Resultado?]

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

espero ter ajudado