home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The C Users' Group Library 1994 August
/
wc-cdrom-cusersgrouplibrary-1994-08.iso
/
listings
/
v_02_12
/
2n12049a
< prev
next >
Wrap
Text File
|
1991-10-29
|
147b
|
10 lines
Function StrLen(S:PCHAR):Word;
var I:Word;
begin
I := 0;
while (i<$FFFF) AND (S[i] <> 0) do
inc(i);
StrLen := i
end;