home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 12 / maskedit / adrdemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-08-23  |  1.4 KB  |  58 lines
  1. {$V-} {Wichtig!!!}
  2. program demo1;
  3.  
  4. { Das Programm fragt nach einen Vornamen oder Nachnamen.
  5.   Geben Sie als Name MEIER oder als Vorname KLAUS ein. }
  6.  
  7. uses masktur4,demo1msk,crt;
  8.  
  9. VAR
  10.     Name:String[28];
  11.     Vorname:String[25];
  12.     Strasse:String[29];
  13.     plz:Word;
  14.     Wohnort:String[21];
  15.  
  16. BEGIN
  17.  { Die Variablen werden vorbelegt }
  18.  Name:=''; Vorname:=''; Strasse:=''; Wohnort:=''; plz:=0;
  19.  
  20.  InitMaske; {Maskenvariablen initialisieren}
  21.  
  22.                { Definition der Maskenfelder }
  23.  AlleFelderAusgabe;
  24.  EingabeFeld(1); EingabeFeld(2);
  25.  Eingabefeldbreak(1); Eingabefeldbreak(2);
  26.  Eingabefeldgross(1); Eingabefeldgross(2);
  27.  EingabeFeldSet(1,['A'..'Z',' ']);
  28.  EingabeFeldSet(2,['A'..'Z',' ']);
  29.  
  30.  {Aufruf der Maske}
  31.  maske(Name,vorname,Strasse,plz,Wohnort,True);
  32.  
  33.  if (Name='MEIER') or (Vorname='KLAUS') then
  34.    begin
  35.     Name:='Meier'; Vorname:='Klaus';
  36.     Strasse:='Petersstr. 14 a';
  37.     Plz:=2000;
  38.     Wohnort:='Hamburg';
  39.  
  40.     AlleFelderEingabe;
  41.     AllefelderNormal;
  42.     EingabeFeld_Start:=3;
  43.  
  44.     { Erneuter aufruf der Maske, es werden aber nur die Felder aktuallisiert }
  45.     maske(Name,Vorname,Strasse,plz,Wohnort,False);
  46.     clrscr;
  47.    end
  48.   else begin
  49.         Uhr_aus; {Uhr soll nicht weiterlaufen}
  50.         clrscr;
  51.         writeln('Name nicht gefunden!');
  52.         writeln;
  53.         writeln('Versuchen Sie es das nächste mal mit Klaus Meier');
  54.         repeat until keypressed;
  55.        end;
  56. end.
  57.  
  58.