On Fri, Apr 04, 2008 at 07:38:26PM +0200, Micha Nelissen wrote:
> [EMAIL PROTECTED] wrote:
> > @@ -335,11 +336,12 @@
> >      Result:=1;
> >      exit;
> >      end;
> > -  Repeat
> > +  While (Result=0) and (S1^<>#0) and (S2^<>#0) do 
> 
> You only have to check one of S1 or S2 being unequal to zero. (Otherwise
> they would be different anyway).
And what about case  S1='' and S2='' in the first check?

Petr

-- 
Ing. Petr Kristan
.
EPOS PRO s.r.o., Bozeny Nemcove 2625, 530 02 Pardubice
tel: +420 466335223    Czech Republic (Eastern Europe) 
fax: +420 466510709
_______________________________________________
fpc-devel maillist  -  fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel

Reply via email to