Pequenas funções para serem usadas de modo recursivo

Funções recursivas para utlização

procedure MsgAdverte(Msg: String);
begin
  Application.MessageBox(PChar(Msg), 'Advertência', MB_OK + MB_ICONWARNING);
end;

procedure MsgInforma(Msg: String);
begin
  Application.MessageBox(PChar(Msg), 'Informação', MB_OK + MB_ICONINFORMATION);
end;

procedure MsgAvisa(Msg: String);
begin
  Application.MessageBox(PChar(Msg), 'Informação', MB_OK + MB_ICONINFORMATION);
end;

procedure MsgErro(Msg: String);
begin
  Application.MessageBox(PChar(Msg), 'Erro', MB_OK + MB_ICONERROR);
end;

function MsgConfirma(Msg: String): Boolean;
begin
  Result := (Application.MessageBox(PChar(Msg), 'Confirmação',
    MB_YESNO + MB_ICONQUESTION + MB_DEFBUTTON2) = idYes);
end;

function MesExtenso(Mes: Word) : string;
const
  meses : array[0..11] of PChar = ('Janeiro', 'Fevereiro', 'Março'," [...] continue lendo...

Artigos relacionados