Это просто праздник какой-то

[himself]

if AnsiCompareStr(uppercase(value),uppercase(s))<0 then r:=c else
if AnsiCompareStr(uppercase(value),uppercase(s))>0 then l:=c+1 else
if AnsiCompareStr(uppercase(value),uppercase(s))=0 then r:=c;

Мало того, что "<=" разбито на "<" и "=" с одинаковым исходом, так тут вообще достаточно одной проверки:

if AnsiCompareStr(uppercase(value),uppercase(s))<=0 then r:=c else l:=c+1;

UPD. Я в этот пост буду складывать все такие примеры!

if (doall) then
begin
  if not doall then
  begin

@темы: Компьютеры

Comments

[Crawling Chaos]

Может чел просто пьяным был, когда писал :3

[Гость]

> когда писал :3
... когда писал весь код.