home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / BC_502 / INTLDEMO.PAK / FRENCH.BAS < prev    next >
Encoding:
BASIC Source File  |  1997-05-06  |  1.0 KB  |  32 lines
  1. //----------------------------------------------------------------------------
  2. // ObjectWindows - (C) Copyright 1991, 1996 by Borland International
  3. //   french.bas
  4. //----------------------------------------------------------------------------
  5.  
  6. Fonction IntlDemo()
  7.     AffecteRΘf MonObjet = CrΘerObjet("Locale.Application")
  8.     AffecteRΘf MaFenΩtre = MonObjet.FenΩtre
  9.     MaFenΩtre.CLocale
  10.     MaFenΩtre.LocaleAmΘricaine
  11.     MaFenΩtre.LocaleAnglaise
  12.     MaFenΩtre.LocaleFranτaise
  13.     MaFenΩtre.LocaleAllemande
  14.     MaFenΩtre.LangueAnglaise
  15.     MaFenΩtre.LangueFranτaise
  16.     MaFenΩtre.LangueAllemande
  17.     AffecteRΘf FenΩtreEnfante = MaFenΩtre.FenΩtre
  18.     FenΩtreEnfante.IsAlnum
  19.     FenΩtreEnfante.IsAlpha
  20.     FenΩtreEnfante.IsAscii
  21.     FenΩtreEnfante.IsCntrl
  22.     FenΩtreEnfante.IsDigit
  23.     FenΩtreEnfante.IsGraph
  24.     FenΩtreEnfante.IsLower
  25.     FenΩtreEnfante.IsPrint
  26.     FenΩtreEnfante.IsPunct
  27.     FenΩtreEnfante.IsSpace
  28.     FenΩtreEnfante.IsUpper
  29.     FenΩtreEnfante.IsXDigit
  30.     MonObjet.Quitter
  31. Fin Fonction
  32.