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