home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / BC_502 / INTLDEMO.PAK / GERMAN.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. //   german.bas
  4. //----------------------------------------------------------------------------
  5.  
  6. Funktion IntlDemo()
  7.     Setze AnwendungObjekt = ErstelleObjekt("Locale.Application")
  8.     Setze HauptFenster = AnwendungObjekt.Fenster
  9.     HauptFenster.CLocale
  10.     HauptFenster.AmerikanischeLocale
  11.     HauptFenster.BritischeLocale
  12.     HauptFenster.Franz÷sischeLocale
  13.     HauptFenster.DeutscheLocale
  14.     HauptFenster.EnglischeSprache
  15.     HauptFenster.Franz÷sischeSprache
  16.     HauptFenster.DeutscheSprache
  17.     Setze ChildFenster = HauptFenster.Fenster
  18.     ChildFenster.IsAlnum
  19.     ChildFenster.IsAlpha
  20.     ChildFenster.IsAscii
  21.     ChildFenster.IsCntrl
  22.     ChildFenster.IsDigit
  23.     ChildFenster.IsGraph
  24.     ChildFenster.IsLower
  25.     ChildFenster.IsPrint
  26.     ChildFenster.IsPunct
  27.     ChildFenster.IsSpace
  28.     ChildFenster.IsUpper
  29.     ChildFenster.IsXDigit
  30.     AnwendungObjekt.Beenden
  31. Ende Funktion
  32.