duvida sobre função..

Delphi

08/10/2003

Boa tarde pessoal,
estou estudando um código fonte e fiquei em dúvida sobre esta função;
pq ela é codificada entre o implementation e o {$R *.DFM}

-------------------------------------------------
function GetFileType: Integer;
implementation

function GetFileType: Integer;
{ This function returns the file type selected by the user as
represented by one of the above defined constants. }
begin
FileTypeForm := TFileTypeForm.Create(Application);
try
Result := FileTypeForm.ShowModal;
finally
FileTypeForm.Free;
end;
end;

{$R *.DFM}
.
.
.
--------------------------
valeu dinovo
JM


Jm

Jm

Curtidas 0

Respostas

Beppe

Beppe

08/10/2003

Boa tarde pessoal, estou estudando um código fonte e fiquei em dúvida sobre esta função; pq ela é codificada entre o implementation e o {$R *.DFM} ------------------------------------------------- function GetFileType: Integer; implementation function GetFileType: Integer; { This function returns the file type selected by the user as represented by one of the above defined constants. } begin FileTypeForm := TFileTypeForm.Create(Application); try Result := FileTypeForm.ShowModal; finally FileTypeForm.Free; end; end; {$R *.DFM} . . . -------------------------- valeu dinovo JM


Ela cria um formulario, exibe, e o libera, retornando o resultado do diálogo(mrYes, mrCancel...)

Se a sua dúvida é o porque de estar entre implementation e a diretiva, ô sem grilo, $R naum influencia nada.

Ataliba.


GOSTEI 0
Jm

Jm

08/10/2003

Valeu ataliba..
Pensei que tinha alguma coisa a ver pq sempre que vi , as funções estavam abaixo do {$R *.DFM}
Por isso a minha dúvida..


Valeu mesmo
Obrigado e fico te devendo esta.. :o


GOSTEI 0
POSTAR