1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:

function StrToSlip (const a: String): String;
var
    i, l: Integer;
    b: String;
begin
    l:= length(a);
    b:='';
    for i:=1 to l do
    begin
        case ord(a[i]) of
          192: b:= b + #219#220;
          219: b:= b + #219#221;
          else b:= b + a[i];
        end;
    end;
    result:= b;
end;

function SlipToStr (const a: String): String;
var
    i, l: Integer;
    b: String;
    jump: boolean;
begin
    l:= length(a);
    b:='';
    jump:= false;
    for i:=1 to l do
    begin
        if not jump then
        begin
            case ord(a[i]) of
              219:  begin
                        case ord(a[i+1]) of
                          220:  begin
                                    jump:= true;
                                    b:= b + #192;
                                end;
                          221:  begin
                                    jump:= true;
                                    b:= b + #219;
                                end;
                          else b:= b + a[i]; //Protokollverletzung entdeckt, nichts tun.
                        end;
                    end;
              else  b:= b + a[i];
            end;
        end else
        jump:= false;
    end;
    result:= b;
end;