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

    Function Asc2Str(Var s; Max : Byte): String;
    { Converts an ASCIIZ String to a Turbo Pascal String }
    { With a maximum length of max.                      }
    Var
      StArray  : Array[1..255] of Char Absolute s;
      Len      : Integer;
    begin
      Len        := Pos(#0,StArray)-1;                       { Get the length }
      if (Len > Max) or (Len < 0) then               { length exceeds maximum }
        Len      := Max;                                  { so set to maximum }
      Asc2Str    := StArray;
      Asc2Str[0] := Chr(Len);                                    { Set length }
    end;  { Asc2Str }

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