Put´s, mato a PAU!!!...
É tava cansado... falta de café é foda.. rsrsrs
valeu, abraços...
Luiz Escobar (home)
Wed, 26 Sep 2007 20:41:06 -0300, "Daniel Bastos" escreveu:
O problema me parece bem simples meu caro.
Na declaração da function, no implementation vc está colocando o nome da
classe errado.
sua declaração no type está assim:
---------------------------------------------------------
type
TAllToStr = class(TComponent)
. . .
protected
function ReturnTypeAndNull( var oldvalue : string; bool: Boolean;
StrTypeName, ValueReturnNull, ValueNotReturnNull, ValorNotNull : string )
: string;
E sua declaração no implementation está desta forma:
---------------------------------------------------------
function AllToStr.ReturnTypeAndNull( var oldvalue : string; bool: Boolean;
StrTypeName, ValueReturnNull, ValueNotReturnNull, ValorNotNull : string ) :
string;
Note que na declaração do implementation o nome da classe está errado. Falta
um "T" antes.
O problema é que, o delphi exibe a msg "[DCC Error] Unit1.pas(23): E2023
Function needs result type" no momento da compilação como erro.
Esta msg acaba confundindo a pessoa que está lendo, pois o erro não
corresponde a msg.
Abs.
Daniel A. Bastos
Em 26/09/07, [EMAIL PROTECTED] <[EMAIL PROTECTED]>
escreveu:
>
> declarei a seguinte function no meu componente:
>
> type
> TAllToStr = class(TComponent)
> private { Private declarations }
> // bla bla bla bla...
>
> protected { Protected declarations }
> function ReturnTypeAndNull( var oldvalue : string; bool: Boolean;
> StrTypeName, ValueReturnNull, ValueNotReturnNull, ValorNotNull : string )
> : string;
>
> // bla bla bla bla....
> Implementation
> // bla bla bla bla....
>
> // extamente na linha mais abaixo dá o seguinte erro:
> // [Error] variable.pas(80): Function needs result type
> // bom isso só deveria dar se o ': string' não estive-se no final da
> function como esta!
> // e ai ? alguem sabe o pq ?
> function AllToStr.ReturnTypeAndNull( var oldvalue : string; bool: Boolean;
>
> StrTypeName, ValueReturnNull, ValueNotReturnNull, ValorNotNull : string )
> : string;
>
> Luiz Escobar - Analista/Desenvolvedor:
> WEB - HTML/JavaScript/PHP/MySQL
> WINDOWS - Delphi/ASSEMBLER/MySQL/xBase
> SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse10.2), Windows 2K/XP
>
[As partes desta mensagem que não continham texto foram removidas]
