Strings.Length

Article View: comp.lang.modula2

Article #3258

#3258

From: Robert L Barton
Date: Sun, 11 Feb 1996 19:31

13 lines
584 bytes

CONST
  EOS = 0C;

PROCEDURE Length (stringVal: ARRAY OF CHAR): CARDINAL;
VAR
  l: CARDINAL;
BEGIN
  l := 0;
  WHILE (l <= HIGH(stringVal)) AND (stringVal[l] # EOS) DO
    INC(l)
  END;
  RETURN l
END Length;

Technical Details

Message-ID: <4flg70$lbk@rock101.genie.net>

Path: arc1-ca.pugleaf.net!news.genie.net!usenet

Show Full Headers

Complete Article Headers

Path: arc1-ca.pugleaf.net!news.genie.net!usenet
From: r.barton8@genie.com (Robert L Barton)
Newsgroups: comp.lang.modula2
Subject: Strings.Length
Date: 11 Feb 1996 19:31:44 GMT
Organization: via GEnie Services (1-800-638-9636 or info@genie.com)
Sender: r.barton8@genie.com (Robert L Barton)
Message-ID: <4flg70$lbk@rock101.genie.net>
NNTP-Posting-Host: rock103.is.ge.com