데이터 인코딩

임의의 숫자 3개를 받아 이진수로 변환한 다음 그 값을 6가지의 incoding 타입으로
그리는 프로그램입니다.
각 타입들은 각각 쌍을 이루어 같은 procedure를 거치게 되며 procedure Draw에
값을 전달하여 폼에 그리게 됩니다.
NRZ-L , NRZI
Bipolar - AMI, Pseudoternary
Manchester, Differnal Manchester
값을 입력하여 이진수로 변환하고 그리기 이벤트를 발생시키면 switch 문을 거쳐
각 타입으로 입력된 이진수 값을 넘깁니다.
procedure NRZ 에서는 NRZ-L에서는 이진수 그대로를 그리고
NRZI에서는 입력된 이진수를 변환하여 procedure NRZ 으로 전달합니다.
나머지 타입 역시 같은 방법으로 변환하여 각 procedure 에 전달하고 각각
procedure Draw에 값을 넘겨 그리게 됩니다.
타입별로 구분하여 이진수 값을 변환하는 부분
case i of

1 : Nrz(Value, 24,35); // NRZ-L

2 : begin // NRZI

TempValue := Value;
For j := 1 to 12 do
begin
if j = 1 then TempValue[j] := TempValue[j]
else
begin
if TempValue[j] = `0` then // 0 이면
TempValue[j] := TempValue[j-1]
else
begin
if TempValue[j-1] = `1` then
TempValue[j] := `0`
else TempValue[j] := …