Jump to content
Fórum Script Brasil
  • 0

Usando Units de Proc. e Funções prontas


Corposemalma
 Share

Question

Vo postar uma dica, para comemorar meu post numero 100

Outra coisa que eu acho bastante interessante, são as Units com procedimentos e funções prontas...

Você pode diminuir, e muito a quantidade de código de um programa, criando uma unit com todos os procedimentos e funções das quais repete muito...

Por Exemplo:

No caso a Unit aqui é chamada de CSA

Type
  Tcsa = class(Tobject);
  function CSA_Strtodatecheck(X: string): boolean;
  function CSA_Strtodate(X: string): tdatetime;

implementation

function CSA_Strtodatecheck(X: string): boolean;
begin
  try
    StrToDate(X);
    Result := true;
  except
    messagedlg('A data não é válida', mtError, [mbOK],0);
    Result := false;
  end;
end;

function CSA_Strtodate(X: string): tdatetime;
begin
  if CSA_Strtodatecheck(x) = true then
    Result := strtodate(x)
  else
    abort;
end;
então quando eu quero transformar uma string para data de um texto de um determinado campo, não preciso digitar todo o código acima novamente, simplesmente adiciono a Unit (aqui no caso CSA) aos Uses do Form que estiver e o seguinte código para transformar a string para data:
AlgoQueUseData := CSA_Strtodate(Edit1.text);

Sem repetição de código e com as mensagens de erro já embutidas

Muito bom isso biggrin.gif Deu pra notar a diminuição de código? laugh.gif

Se algum moderador achar que isso aqui não ta certo, pode tirar a mensagem a vontade.. só to querendo dar uma mão pro pessoal wink.gif

Link to comment
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      151k
    • Total Posts
      649.1k
×
×
  • Create New...