The C Users' Group Library 1994 August/wc-cdrom-cusersgrouplibrary-1994-08.iso/listings/v_02_12/2n12049a

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;