Ajuda - functions

[Guest Visitante Feliz]

Boa tarde,

galera como seo meio iniciante no delphi não sei criar funções muito bem

preciso criar 3 funções no casso elas seriam +/- assim:

function mainpresente (valor: real): string;

// Verifica se o main esta presente

function mainpresente (valor: real): string;

if FileExists(Edit5.Text) then

begin

end

else

MessageBox(Handle,PChar('O Arquivo '+ Edit7.Text +' não foi encontrado.'), 'Erro', MB_OK or MB_ICONERROR);

end;

// Funcao - versao 1

function versao1 (valor: real): string;

winexec (PChar(Edit7.Text+' /connect' + ' /u'+ Edit5.Text + ' /p' + Edit6.Text), sw_normal);

Application.Minimize;

// Funcao - versao 2

function versao2 (valor: real): string;

winexec (PChar(Edit7.Text+' /connect' + ' /u'+ Edit5.Text + ' /p' + Edit6.Text), sw_normal);

Application.Minimize;

e no botão chamar elas,

mais na hora de testa da erro e não faço ideia do que pode ser

Oque seria?

Grato.

[Duduh_Capixaba]

Olá! Poste a mensagem de erro, só assim alguém poderá ajudá-lo melhor. Outra coisa... Se não me engano, funções são usadas para cálculos, ou seja, devem retornar um resultado. No seu caso, acho que seria melhor você criar procedimentos (procedures) ao invés de funções. Abraço!

[Guest Visitante Feliz]

// Verifica se o main esta presente

function mainpresente (valor: real): string;

if FileExists(Edit5.Text) then

begin

end

else

MessageBox(Handle,PChar('O Arquivo '+ Edit7.Text +' não foi encontrado.'), 'Erro', MB_OK or MB_ICONERROR);

end;

Errp: [Error] Unit1.pas(112): Declaration expected but 'IF' found

// Funcao - versao 1

function versao1 (valor: real): string;

winexec (PChar(Edit7.Text+' /connect' + ' /u'+ Edit5.Text + ' /p' + Edit6.Text), sw_normal);

Application.Minimize;

end;

Erro: [Error] Unit1.pas(112): Unknown directive: 'winexec'

// Funcao - versao 2

function versao2 (valor: real): string;

winexec (PChar(Edit7.Text+' /connect' + ' /u'+ Edit5.Text + ' /p' + Edit6.Text), sw_normal);

Application.Minimize;

end;

Erro: [Error] Unit1.pas(113): Unknown directive: 'winexec'

Ai os erros

Grato.