Chr0n0

Deixa eu ver se entendi, primeiro eu declaro os void... E depois da funcao principal (main) que eu os crio??? não estou consseguindo, o que fiz foi isso. No inicio do programa: [...] using namespace std; void gera_conta (int conta); void menu_caixa (int opcao); int main () { return 0; } void gera_conta [...] void menu_caixa [...] Porem ainda me retorna varios erros dizendo que as variaveis não estão declaradas. ex: error: `opcao' was not declared in this scope error: `vet' was not declared in this scope error: `x' was not declared in this scope error: `valor' was not declared in this scope etc... Estou fazendo o que errado??? Valeu

Ola pessoal, estou em um trabalho da facul e estou parado em um problema... E o seguinte: Tenho 2 void, o primeiro gera uma conta qualquer e um valor. Ela esta funcionando perfeitamente.. O parâmetro dela e o seguinte: void gerador (int vet[], float vet2[]) e o outro void que eu tenho e o: void menu () Ai que esta meu problema.. No segundo void tenho que puxar os valores do vet[] e vet2[], que são do primeiro void. O programa ao compilar da erros dizendo que 'vet' não existe, etc (coisas que foram declaradas no primeiro void e preciso usar no segundo) Tentei fazer da seguinte forma: A mesma coisa que no primeiro void. void menu (int vet[], float vet2[]) Porem continuam os erros do mesmo jeito. Minha duvida e se existe um modo de como fazer isso... um void usar as declarações do outro void. Abracos pessoal :) ps: não coloquei o code porque não estou com ele..

Ola galera, estou criando um mini firewall (muito simples) coloquei para ele somente monitorar 2 portas que podem ser invadidas para quando alguém tentar... o programa acusar e dar o IP do atacante. Pois bem... ai vai a foto do erro. e o Souce dele unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, FtpSrv, StdCtrls, ftpsrvC; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; Button2: TButton; Button3: TButton; Netbus: TFtpServer; Subseven: TFtpServer; procedure NetbusClientConnect(Sender: TObject; Client: TFtpCtrlSocket; AError: Word); procedure SubsevenClientConnect(Sender: TObject; Client: TFtpCtrlSocket; AError: Word); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.NetbusClientConnect(Sender: TObject; Client: TFtpCtrlSocket; AError: Word); begin Memo1.Lines.Add('O endereço IP: '+Client.GetPeerAddr+ 'tentou netbus 1.x); netbus.DisconnectAll; end; procedure TForm1.SubsevenClientConnect(Sender: TObject; Client: TFtpCtrlSocket; AError: Word); begin Memo1.Lines.Add('O endereço IP: '+Client.GetPeerAddr+ 'tentou subseven 1.x'); subseven.DisconnectAll; end; procedure TForm1.Button1Click(Sender: TObject); begin Memo1.Lines.Add('Monitorando'); netbus.Start; subseven.start; end; procedure TForm1.Button2Click(Sender: TObject); begin Memo1.Lines.Add('Monitoramento Parado'); netbus.Stop; subseven.Stop; end; procedure TForm1.Button3Click(Sender: TObject); begin Memo1.Clear; end; procedure TForm1.FormCreate(Sender: TObject); begin end; end. Se alguém souber o que estou fazendo de errado, que me ajudar por favor... já tentei de tudo e nada... :rolleyes:

Vlw mano, não é que eu esteja distraido... é que comecei a estudar delphi a 1 semana, sem ajuda de ninguém... sou bem novato na area. Somente com tutoriais da net e por ai vai. Mas vou estudar bastante o que você esta explicando. Valeu!! vou prestar mais atenção no código do programa

Pow mano, muito obrigado mesmo, voce me ajudou bastante. Valeu pro Micheus tambem. A vocês 2 que me ajudaram. Deu certinho aqui, não sei o que tava fazendo de errado... mas vou ficar comparando o codigo e estuda-lo para ver onde estava errando. Abraços!! :D

Olha so, me corrija se eu estiver errado. Estou fazendo isso e esta dando errado Esse codigo aqui eu coloco dentro do form. (apago tudo que já está dentro do form e colo esse aqui) E esse aqui coloco dentro do botão. Estou fazendo isso que descrevi ai em cima... E agora esta dando erro no Dizendo : [Error] Unit1.pas(50); Statement expected but 'PROCEDURE' found Re-analize e veja se estou fazendo algo errado, muito obrigado mais uma vez por tentar me ajudar. :) Valeu!!

Muito obrigado por vome me responder Micheus, mas infelizmente não conssegui. Não sei se foi erro meu ou o code, mas dava diverssos erros... estou comecando agora com delphi, não sei muito bem... Vou tentar dar uma outra esplicada para ver se alguém conssegue me entender. Eu estou criando um programa para finalizar processos do Windows, deem uma olhada na foto do programa com a janela dos processos do Windows aberta para entenderem melhor o que estou tentando fazer. Foto do programa Estou precisando que quando clique na 1 janela, finaliza o firefox... que esta rodando. quando clico na 2, finaliza o antivirus nod32... e assim por diante. Eu já peguei um pronto, não lembro aonde, que voce clica em processos, aparece todos os processos rodadando, ai voce seleciona o desejado e clica em fexar, ele fexa... Mas estou mesmo precisando fazer assim como falei la em cima, clico no botão, fexo... Se alguém consseguir me ajudar ficarei muito grato de verdade, porque estou impacado... já tentei de tudo, em muitos foruns sobre delphi e ninguém sabe, ou não querem falar.. É isso ai, se mais alguém consseguir me dar uma luz.

Olá para todos os membros do forum, a um tempo venho aconpanhando o site do scriptbrasil e realmente é muito bom. Hoje estou com uma tremenda duvida, para alguns pode ser muito facil... mas estou quebrando a cara tentando e tentando sem sucesso. O problema é o seguinte... eu já criei um programinha para fechar processos que o windows esta execultando... Só que agora não sei o codigo para fechar esses processos. Segue a imagem.. http://img407.imageshack.us/img407/3199/fotoov6.jpg Olhem os processos rodando.. eu estou atras de um codigo que faça feixar ele(s). Este é meu primeiro post no forum, ficaria muito grato se alguém consseguir me ajudar.. Valeu pra todos..