07 Ago 2013 19:07
Procedure Main()
Application:cTitle := "TESTE"
TForm_Acesso():New( Application ):Show()
Application:Run()
Return
Procedure Main()
Application:cTitle := "Sistema Teste"
IniSystem()
Application:Run()
Return
Procedure Main()
Application:cTitle := "TESTE"
TForm_Acesso():New( Application ):Show()
Application:Run()
Return
07 Ago 2013 20:41
Procedure Main()
Application:cTitle := "SOAP"
Application:Run()
Return
Funtion INISYSTEM()
//Declaracoes inicias etc...
RETURN NIL
Procedure Main()
Application:cTitle := "SOAP"
INISYSTEM() // Ele entende que agora seu projeto foi definido uma função ou método q foi atribuido ao projeto em propriedades
Application:Run()
Return
Funtion INISYSTEM()
//Declaracoes inicias etc...
RETURN NIL
08 Ago 2013 10:09