Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!zaphod.mps.ohio-state.edu!van-bc!rsoft!mindlink!a499
From: Robert_Salesas@mindlink.bc.ca (Robert Salesas)
Newsgroups: comp.lang.pascal
Subject: Re: Dose anybody have space det. code!!!!!!!!!
Message-ID: <5588@mindlink.bc.ca>
Date: 22 Apr 91 17:14:20 GMT
Organization: MIND LINK! - British Columbia, Canada
Lines: 27


I haven't run this but it should work...





Procedure ChangeSpace(Var S : String);
Var
  I : Word;
Begin
  I := 1;
  While (I < Length(S)) Do
    Begin        If (S[I] = ' ') Then
        S[I] := '-';
    End;
End; {ChangeSpace}


Or something along those lines anyways...

Rob
--
\--------------------------------------------------------------------/
\ Robert Salesas             + Usenet: Robert_Salesas@MINDLINK.bc.ca /
\ Eschalon Development Inc.  + CIS:    76625,1320    BYTE:  newdawn  /
\--------------------------------------------------------------------/