Repeat + Upcase In Tylko jak ?

0

Mam problem z Repeat a raczej jej końcówką.

      repeat
       Write('Podaj sposob zaplaty (gotowka/kredyt): ');
       readln(sposob_oplaty);
      until Upcase(sposob_oplaty) in ('GOTOWKA','KREDYT','GOTóWKA');

Dlaczego nie mogę skompilować w obecnej wersji ? Chciałbym żeby użytkownik podawał zmienną aż uzyskam KREDYT, GOTOWKA, GOTÓWKA, lub z małej litery. A tu wywala błąd. Error: Ordinal expression expected
Działam na FPC oraz standardowym kompilatorze.

1

in możesz stosować TYLKO dla typów wyliczeniowych - string takim typem nie jest. Hint poczytaj o SameText

0

Jeśli jest tak (['KREDYT','GOTOWKA']); to dostaje ten sam błąd co napisałem, jeśli ('KREDYT','GOTOWKA'); to się pyta dlaczego dostał , jeśli . to tak samo i gdzie tu błąd ?

1 użytkowników online, w tym zalogowanych: 0, gości: 1