Funcoes c/ Mesmo Nome
14/09/2004
0
As duas são chamadas da seguinte forma:
n:=3;
x:=zer(n,5);
1ª
*****
function zer([b:622544391e]v: integer[/b:622544391e]; z: integer=2): string;
var
s: string;
begin
FmtStr(s, ´¬.´+IntToStr(z)+´d´, [v]);
result:=s;
end;
2ª
*****
function zer([b:622544391e]v: string[/b:622544391e]; z: integer=2): string;
var
s: string;
begin
FmtStr(s, ´¬.´+IntToStr(z)+´d´, [StrToInt(v)]);
result:=s;
end;
agradeço a todos
Ricardoif
Posts
14/09/2004
Gandalf.nho
14/09/2004
Rômulo Barros
Concluindo:
function zer(v: integer; z: integer=2): string; Overload; var s: string; begin FmtStr(s, ´¬.´+IntToStr(z)+´d´, [v]); result:=s; end;
2ª
*****
function zer(v: string; z: integer=2): string; Overload; var s: string; begin FmtStr(s, ´¬.´+IntToStr(z)+´d´, [StrToInt(v)]); result:=s; end;
Dependendo do tipo de parâmetro a ser passado.. o delphi saberá qual das duas functions chamará.
:lol: :lol: :lol:
14/09/2004
Marcelo Saviski
Isso:
[color=green:cf5bcae060]FmtStr(s, ´¬.´+[/color:cf5bcae060][color=red:cf5bcae060][b:cf5bcae060]IntToStr(z)[/b:cf5bcae060][/color:cf5bcae060][color=green:cf5bcae060]+´d´, [v]);[/color:cf5bcae060]
é igual a isso:
[color=green:cf5bcae060]FmtStr(s, ´¬.[/color:cf5bcae060][b:cf5bcae060][size=14:cf5bcae060][color=red:cf5bcae060]*[/color:cf5bcae060][/size:cf5bcae060][/b:cf5bcae060][color=green:cf5bcae060]d´, [v, [/color:cf5bcae060][b:cf5bcae060][color=red:cf5bcae060]z[/color:cf5bcae060][/b:cf5bcae060][color=green:cf5bcae060]]);[/color:cf5bcae060]
Clique aqui para fazer login e interagir na Comunidade :)