Como fazer uma função

Olá.. Bl..

Bom, pra vc criar uma função vc precisa declará-la da seguinte forma:

function nomedafuncão: tipodafunção;

o tipo da função e o tipo de dado que ela vai retornar como resposta...

para chamar ela vc pode fazer da seguinte forma...

tabela.fieldbyname(´codigo´).asinteger := proximocodigo;

onde proximocodigo é uma função que verifica o próximo código a ser posto na tabela..

Um abraço

Poeta Noturno

[quote:711b315f28=´Poeta Noturno´]Olá.. Bl..

Bom, pra vc criar uma função vc precisa declará-la da seguinte forma:

function nomedafuncão: tipodafunção;

o tipo da função e o tipo de dado que ela vai retornar como resposta...

para chamar ela vc pode fazer da seguinte forma...

tabela.fieldbyname(´codigo´).asinteger := proximocodigo;

onde proximocodigo é uma função que verifica o próximo código a ser posto na tabela..

Um abraço

Poeta Noturno[/quote:711b315f28]

E se eu quisesse fazer uma funcão q quando eu chamasse ela fizesse isso:
table1.append;
table1.fieldbyname(´usuario´).asstring:=edit1.text;
table1.fieldbyname(´tipo´).asstring:=combobox1.text;
table1.fieldbyname(´senha´).asstring:=edit2.text;
table1.fieldbyname(´entrada´).asstring:=edit4.text;
table1.fieldbyname(´saida´).asstring:=edit5.text;
table1.fieldbyname(´almini´).asstring:=edit7.text;
table1.fieldbyname(´almfim´).asstring:=edit6.text;
table1.post;
messagebox(form10.handle,´Usuário cadastrado com sucesso´,´Confirmação´, 0+64);
edit1.text:=´´;
combobox1.text:=´´;
edit2.text:=´´;
edit3.text:=´´;
edit4.text:=´´;
edit5.text:=´´;
edit6.Text:=´´;
edit7.text:=´´;

como eu a declararia?

Neste caso como voce nao vai obter nenhuma resposta faça uma procedure
Declare junto com as declarações da outras procedures assim

procedure grava;//aperte shift+Ctrl+c para criar o corpo da procedure e digite tudo aquilo que vc quer

para chamar basta escrever o nome dela ex;

procedure Tfrmmenu.Button3Click(Sender: TObject);
begin
grava;
end; :wink:

Valew Fred! já testei e funcionou!!!

[quote:272e13cb2d=´l!nk!n´]Fala Galera! BL?
Eu gostaria q alguém me explicasse como eu faço uma função e como eu a chamo depois.
Desde já agradeço a todos!
VALEW!!![/quote:272e13cb2d]
Aproveitando a idéia do Fred, vc tb pode passar parâmetros para uma função. Por exemplo, criar objetos em tempo de execução, acessá-la em várias procedures do seu prog etc. Se desejar saber mais sobre isso, me escreve.
Luís
luisfacu@hotmail.com