🚀 go-pugleaf

>>> if drugi znak = 13 LUB 10 then zignorować :)
>>
>> To nie takie proste, bo możesz zignorować pustą linię w niektórych
>> przypadkach.
>>
>> Coś w stylu if (drugi znak = 10 and pierwszy znak = 13) or
>> (odwrotnie) then zignorować
> No tak, masz rację. Trzeba by to dokładniej przemyśleć, ale
> oczywiście da się zrobić. Bo jeśli pierwszy i drugi znak jest
> równy 10 lub pierwszy i drugi = 13, to znaczy, że jest to pusty
> wiersz, A jeśli pierwszy znak =10 a drugi 13 (lub odwrotnie)
> to znaczy, że koniec wiersza oznaczony jest dwoma znakami.

niesprawdzane:



var stan:(stan_byl_inny,stan_byl_13,stan_byl_10);

stan:=stan_byl_inny;
while sa_jeszcze_znaki do
begin
 c:=dawaj_znak();
 case c of
   #13  : begin
            case stan of
              stan_byl_inny,
              stan_byl_13   : nowa_linia;
              stan_byl_10   : wtf;    // #10#13
            end;
            stan:=stan_byl_13;
          end;
   #10  : begin
            case stan of
              stan_byl_inny,
              stan_byl_10    : nowa_linia;
              stan_byl_13    : ;      // #13#10
            end;
            stan:=stan_byl_10;
          end;
   else   begin
            normalny_znak(c);
            stan:=stan_byl_inny;
          end;
 end;
end;


-- 
Azarien

"Kasyna nie oszukują. Jedyną obroną kasyna jest absolutna uczciwość.
Gdyby oszukiwały, ktoś mógłby dostrzedz metodę oszusta - i ograć kasyno."