home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / strings / strfunc / strdemo.pas next >
Encoding:
Pascal/Delphi Source File  |  1988-01-19  |  1.9 KB  |  58 lines
  1. Program StrDemo;
  2. Uses Dos,Crt,StrFunct;
  3. {$V-}
  4. Var
  5.   Name1     : String;
  6.   OrigColor : Byte;
  7.   I         : Integer;
  8.   Num1      : Real;
  9. Begin
  10.   ClrScr;
  11.   OrigColor:= TextAttr;
  12.   TextBackGround(7);
  13.   TextColor(0);
  14.   Name1:= '';
  15.   Name1:= '  Johnny';
  16.   GotoXY(10,2);  Write('First Strings');
  17.   GotoXY(5,4);   Write('Column Markers');
  18.   GotoXY(45,4);  Write('12345678901234567890');
  19.   GotoXY(5,5);   Write('Original String =');
  20.   GotoXY(45,5);  Write(Name1);
  21.   GotoXY(5,6);   Write('Left justified, field size 12:');
  22.   Name1:= Left(Name1,12,#32);
  23.   GotoXY(45,6);  Write(Name1);
  24.   GotoXY(5,7);   Write('Right justified, field size 12:');
  25.   Name1:= Right(Name1,12,#32);
  26.   GotoXY(45,7);  Write(Name1);
  27.   GotoXY(5,9);   Write('New string? (extra spaces ok) ');
  28.   Name1:= '  iSn''t    THIS gREAT    fun?';
  29.   GotoXY(45,9);  Write(Name1);
  30.   I:= Words(Name1);
  31.   GotoXY(45,10); Write('# of words in string = ',I);
  32.   Name1:= Normalize(Name1);
  33.   GotoXY(5,11);  Write('Normalized string =');
  34.   GotoXY(45,11); Write(Name1);
  35.   Name1:= OneCap(Name1);
  36.   GotoXY(5,12);  Write('Now in OneCap form =');
  37.   GotoXY(45,12); Write(Name1);
  38.   Name1:= FirstCap(Name1);
  39.   GotoXY(5,13);  Write('Now in FirstCap form =');
  40.   GotoXY(45,13); Write(Name1);
  41.   Name1:= AllCap(Name1);
  42.   GotoXY(5,14);  Write('Now in AllCap form =');
  43.   GotoXY(45,14); Write(Name1);
  44.   Num1:= 1234.55;
  45.   GotoXY(10,16);  Write('Now a Real Number:');
  46.   GotoXY(5,18);  Write('Original number =');
  47.   GotoXY(55,18); Write(Num1:1:2);
  48.   GotoXY(5,19);  Write('Dollar form, right justified, field 12:');
  49.   Name1:= Right(Comma('$',Num1,10,2),12,#32);
  50.   GotoXY(55,19); Write(Name1);
  51.   Name1:= Right(Comma('#',Num1,10,2),12,#32);
  52.   GotoXY(5,20);  Write('Punctuated form, right justified, field 12:');
  53.   GotoXY(55,20); Write(Name1);
  54.   Name1:= Right(Comma('%',Num1,10,2),12,#32);
  55.   GotoXY(5,21);  Write('Percent form, right justified, field 12:');
  56.   GotoXY(55,21); Write(Name1);
  57.   TextAttr:= OrigColor;
  58. End.