Strings.Capitalize

Article View: comp.lang.modula2

Article #3265

#3265

From: Robert L Barton
Date: Fri, 09 Feb 1996 16:48

13 lines
591 bytes

rz
B00000000000000

PROCEDURE Capitalize (VAR stringVar: ARRAY OF CHAR);
VAR
  n: CARDINAL;
BEGIN
  n := Length(stringVar);
  WHILE n > 0 DO
    DEC(n);
    stringVar[n] := CAP(stringVar[n])
  END
END Capitalize;

Technical Details

Message-ID: <4fftt3$dbk@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.Capitalize
Date: 9 Feb 1996 16:48:35 GMT
Organization: via GEnie Services (1-800-638-9636 or info@genie.com)
Sender: r.barton8@genie.com (Robert L Barton)
Message-ID: <4fftt3$dbk@rock101.genie.net>
NNTP-Posting-Host: rock103.is.ge.com