ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Forum AtoutFox : South West Fox 2019 - Phoenix, Arizona   

Sujet

rss Flux RSS des derniers messages

Vous devez vous identifier pour pouvoir poser une question ou répondre.

ven. 25 octobre 2019, 18h18

FForay
France France

atoutfox.public.association

South West Fox 2019 - Phoenix, Arizona

Bonjour à tous,
suite à ma présence lors des rencontres AtoutFox à Lyon en Mai 2019, nous (l'équipe XSharp et moi même) avons accéléré les développements autour de FoxPro et VFP.
Nous avons donc décidé de nous rendre au SouthWestFox 2019 à Phoenix, AZ, afin de rencontrer d'autres membres de la communauté FoxPro et de continuer à porter l'effort dans cette direction.
Des gens tels que Rick Schummer, Doug Hennig, Matt Slay, et bien d'autres nous ont bien accueillis et sont très curieux de voir où nous en sommes : https://www.xsharp.info/forum/public-chit-chat/1561-hot-of-the-press-does-x-have-more-h-air-than-fox#11440

Désormais, FoxPro est un "dialect" de notre compilateur et, par exemple, le code suivant se compile sans problème...L'accès aux DBF VFP est désormais natif, de même pour les fonctions "standards" (Left,Right,Trim,...) et parmi les prochaines étapes, on va trouver le support des Forms et des Reports....

Au plaisir,
Fabrice

DEFINE CLASS UserID AS Custom
  // WIP : If you want Intellisense to recognize these, you must prefix with PUBLIC
  //  PUBLIC login, email
  //
  //  PUBLIC FirstName = "John"
  //  PUBLIC LastName = "Doe"

  login, email

  FirstName = "John"
  LastName = "Doe"

  FUNCTION GetFullyQualifiedName()
    RETURN Trim(THIS.FirstName) + " " + Trim(THIS.LastName)

  FUNCTION FullyQualifiedName_ACCESS()
    RETURN Trim(THIS.FirstName) + " " + Trim(THIS.LastName)


ENDDEFINE


DEFINE CLASS DevTeam AS UserID
  FirstName = "Fabrice"
  LastName = "Foray"


ENDDEFINE

  PROCEDURE Start()
    LOCAL firstObject, secondObject AS UserID
    //
    firstObject = UserID{}
    firstObject.email = "none@none.com"

    secondObject = DevTeam{}
    secondObject.email = "fabrice@xsharp.eu"
    //
    ? "UserID :" + firstObject.GetFullyQualifiedName() ;
      + " / " + firstObject.email
    ? "UserID :" + firstObject.FullyQualifiedName ;
      + " / " + firstObject.email


    ? "DevTeam : " + secondObject.GetFullyQualifiedName() ;
      + " / " + secondObject.email

    //
        WAIT


Journal

Francis Faure pense que ce message est la bonne réponse ou qu'il est utile
GLS pense que ce message est la bonne réponse ou qu'il est utile
Permalink : http://www.atoutfox.org/nntp.asp?ID=0000019464
20 088 messages dans le forum • Liste complète des messages

Publicité

Les pubs en cours :


www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3