Strings.Length

Thread View: comp.lang.modula2

2 messages

[T] Back to Threads [V] Tree View [G] Group Articles

2 total messages Started by Robert L Barton Sun, 11 Feb 1996 19:31

#3258

Author: 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;

Re: Strings.Length

#3273

Author: "Mark Morgan Lloyd "
Date: Mon, 12 Feb 1996 13:09

9 lines
656 bytes

Granted that I've not long rejoined this newsgroup after a period of 
absence, but if you're going to drop code fragments without explanation 
you might at least comment them :-)

Mark Morgan Lloyd
mark_tbu@cix.compulink.co.uk

[Opinions above are the author's, not those of his employers or 
colleagues]

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads