Estrutura de uma Function e Procedure, alguém sabe como é?

E como chamo as mesmas em minhas rotinas?

Por exemplo crio um botão salvar, mas também quero que a tecla F12 salve também, ao invés de refazer tudo de novo pode-se somente chamar a procedure do botão, não é

Obrigado

:twisted: Julien ´Murray´ :twisted:

exemplo:

if not copyFile(c:\arquivo.txt,a:\arquivo.txt,true) then
showmessage(´Erro ao copiar´);

Estrutura da FUNCTION

function <nome>(possiveis variveis):resultado;
Ex:

function CopyFile (source, dest : String): Boolean;

ou seja, esta função faz do Source para o Dest e se tudo ocorrer bem retorna True ou False

as procedures são quase identicas mas elas não retornam valor algum
Ex:

Procedure Salvar(Table : TDataSet);
begin
Table.Post;
end;

Como Usar:

Salvar(TableClientes);

para F12 coloque no onKeyDown do Form assim:

if (Key = VK_F12) then Salvar(TableClientes);

:?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?:

Eu gostaria de saber como é a estrutura destas duas rotinas. Aquele foi um exemplo que eu achei

Assim

Function teste(istoservepara:seila): seila

Sacou?

Thanks e Desculpa por eu não ter explicado melhor !

Olha Julienmurray não sei te explicar direito mas não sei se eu sei tbm.. pois estamos aqui pra aprender.. portanto me corrijam se eu estiver errada..
A diferença principal entre a function e a procedure é que a function tem que te retornar um valor, estipulado na própria function.. Tipo assim na sua function de exemplo:

function filecopy(source,dest:string):boolean;
source e dest são as variáveis da sua function, string é o tipo e boolean acredito que seja o tipo do resultado, por exemplo essa função vai retornar true ou false (boolean)..
E a procedure já não te retorna valor nenhum..
As Functions devem ser declaradas logo abaixo de uses e depois de implementation, vc deve chamar pelo nome da function..
Ex de uma function q verifica de qtos digitos tem o ano:

Uses....
Function AnoQuatroDigitos:Boolean;

Implementation
Function AnoQuatroDigitos;
begin
Result := (Pos(´yyyy´,SHortDateFormat)>0);
if Result = False then
ShowMessage(´Por favor altere as configuções do seu Sistema Operacional do ano para quatro digitos!!!´);
end;
Percebe que aqui no exemplo o resultado só pode ser ou true ou false..

Bom tentei.... :D Não sei se te compliquei mais.... :D

T++

Rafa

Coisa Fofa essa Menina
Pra ti !


:twisted: Julien ´Murray´ :twisted:

Não...

:P Julien ´Murray´ :P

Muiitoo obrigadooooooo...
Mas vc entendeu o só enrolei e não consegui falar nada??? :D Sei lá em teoria eu sou meia ruimmm...

:twisted: Rafa :twisted:

Está tão certo que pelo que os amigos postaram , bate com que vc me ajudou !


Agora Sim

:twisted: Julien ´Murray´:twisted:

e ná prática é ruim e meia... 8)

:?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?:
:?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?:
:?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?:
:?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?:
:?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?:
:?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?: :?:

Você quis ofender ou fazer rir?

Pra naum ficar muito feio esta sua resposta.... :x

ou huahuahuahuahuahauhauhauhauhauhauhauhauhauhauhauhauhauhauhauhauhauhauhauhauhauhauhauhauhauhauha, pára,pára, tô me mijando de tanto Rir !

Ai,ai, pra onde vai esse mundo.... :roll:

:twisted: Julien ´Murray´ :twisted:

Eu também ri muito. :?
Da proxima vez ele tem q avisar q é pra rir! :D

Rafa