модуль TPStrings

[sem_1989]

Мне дали задание вывести в файл графический картинку 10 *10 пикселей
по-байтно. Сказали юзать модуль TPStrings и процедуру binaryb(...),
и тут начались проблемки:
- где взять этот модуль( так как в стандартной комплектации паскаля его нету)???
- и как пользовать процедурку binaryb(...)???

Подскажите пожалуста...

[Serge_Bliznykov]

Эта библиотека входила в состав TurboProfessional
на форуме я недавно выкладывал.
можете взять там: "Пакет turbo professional "


а вообще, можно просто взять эту функцию из данного пакета.
Вот, выдернул, наслаждайтесь:

{Выдернуто из TPSTRING}

{*********************************************************}
{*                  TPSTRING.PAS 5.05                    *}
{*        Copyright (c) TurboPower Software 1987.        *}
{* Portions copyright (c) Sunny Hill Software 1985, 1986 *}
{*     and used under license to TurboPower Software     *}
{*                 All rights reserved.                  *}
{*********************************************************}

const
  Digits : array[0..$F] of Char = '0123456789ABCDEF';

  function BinaryB(B : Byte) : string;
    {-Return binary string for byte}
  var
    I, N : Word;
  begin
    N := 1;
    BinaryB[0] := #8;
    for I := 7 downto 0 do begin
      BinaryB[N] := Digits[Ord(B and (1 shl I) <> 0)]; {0 or 1}
      Inc(N);
    end;
  end;


{а вот пример использования}
var i : byte;
begin
  for i:=0 to 20 do
    WriteLn(BinaryB(i));
  WriteLn('press Enter to exit...');
  readln;
end.

[sem_1989]

Спасибо за помощь..)!