[Back to STRINGS SWAG index] [Back to Main SWAG index] [Original]

    {
     > says how big the file is it says it like 34443 and I was
     > wondering
     > is there a command or something I can add in TP6 to make it read
     > 34,443 where it detects where to add a commas. I know there is
    }
    Program Comma;

    Uses Crt;

    Var x : longint;
        Y : string;

    Function CommaNum ( I : LongInt ) : String;
    Var
        TmpString : String;
        Counter, Tester : Byte;
    Begin
      TmpString := '';
      Counter   := 0;
      Tester    := 0;
      Str (i, TmpString);
      For Counter := Length (TmpString) Downto 1 Do
      Begin
        Inc (Tester);
        If Tester = 3 Then
        Begin
          Tester := 0;
          Dec (Counter);
          TmpString := Copy (TmpString, 1, Counter) + ','
                     + Copy (TmpString, Counter + 1, Length (TmpString) );
          Inc (Counter);
        End;
      End;
      If TmpString[1] = ',' THEN DELETE(TmpString,1,1);
      CommaNum := TmpString;
    End;

    Begin
    ClrScr;
    Write('Enter a number ---> ');
    Readln(x);
    Y := COMMANUM(X);
    Write('Here it is with COMMAS! ---> ');
    Write(y);
    Readln;
    End.

[Back to STRINGS SWAG index] [Back to Main SWAG index] [Original]