Skip to content

Instantly share code, notes, and snippets.

@viniciussanchez

viniciussanchez/ClassOperatorImplicit.pas

Last active June 4, 2021 18:03
Show Gist options
  • Save viniciussanchez/cf4fe159d7290acb2cdad83a0601d261 to your computer and use it in GitHub Desktop.
Save viniciussanchez/cf4fe159d7290acb2cdad83a0601d261 to your computer and use it in GitHub Desktop.
Download ZIP
Class Operator Implicit
Raw
ClassOperatorImplicit.pas
type
TVenda = record
Valor: Currency;
class operator Implicit(AValor: string): TVenda;
end;
var
LVenda: TVenda;
begin
LVenda := '300';
end;
{ TVenda }
class operator TVenda.Implicit(AValor: string): TVenda;
begin
Result.Valor := StrToCurr(AValor);
end;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment