num_change.pas

Delphi用于窜口通讯很方便的

unit NUM_Change;

interface
 Function TelC(Num:String):string;
 Function chg(rmsg:String):String;
implementation
  uses strutils;
Function TelC(Num:String):string;  //号码改变
    var tl:integer;
     ltem,rtem,ttem:String;
     ti:integer;
  begin
      tl:=Length(num);
     If(tl <> 11) And (tl <> 13) Then exit;
      If tl = 11 Then
       begin
        tl:= tl + 2;
        num:='86' +num;
       end;
   For ti:= 1 To tl do
    begin
      ltem := Midstr(num, ti, 1);
      rtem := Midstr(num, ti + 1, 1);
      If ti = tl Then rtem := 'F';
      ttem := ttem +rtem +ltem;
    end;
      telc := ttem;
 end;
Function chg(rmsg:String):String;  //信息改变
var
   tep:string;
   temp:string;
   bb:string;
   i,b:integer;
 begin
  tep:= rmsg;
   i := Length(tep);
   b :=  trunc(i / 4) ;
  If (i = b * 4) Then
    begin
    b := b - 1;
     tep := midstr(tep,1, b * 4);
    end
  Else
    begin
      tep := midstr(tep, 1,b * 4);
    end;
For i := 1 To b do
   begin
    temp := 'H' + Midstr(tep, (i - 1) * 4 + 1, 4);
    bb :=bb+temp;
   end;
  chg:=bb;
end;

end.