Programmer 7500/MAX_PROGRAMMERS.iso/PASCAL/TOOL_INC.ZIP/STRUTIL.INC

Text File | 1988-01-29 | 462 b | 28 lines

function len(var s: longstring): integer;
begin
   len := ord(s[0]);
end;

procedure concat_char(var s: longstring; c: char);
begin
   inc(s[0]);
   s[ord(s[0])] := c;
end;

procedure concat_str(var s: longstring; var s2: longstring);
begin
   s := s + s2;
end;

function lastchar(var s: longstring): char;
begin
   lastchar := s[ord(s[0])];
end;

procedure copy_str(var s: longstring; var s2: longstring);
begin
   s := s2;
end;