witam
mam maly problem
pierwszy parametr z jakim zostal uruhcomiony program chce wczytac do Char a nastepnie sprawdzac czy ten Char zawarty jest w okreslonym przedziale
niestety program na starcie sie wywala
prosze o pomoc
metoda1
var P : Char;
begin
P := Char(UpperCase(ParamStr(1)));
if P in ['P', 'R', 'H', 'L', 'S', 'D']
then jakastamfunkcja(P);
end;
metoda2
var P : Char;
begin
P := UpperCase(ParamStr(1))[1];
if P in ['P', 'R', 'H', 'L', 'S', 'D']
then jakastamfunkcja(P);
end;
tak czy inaczej efektem koncowym powinien byc wczytany parametr do Chara w postaci duzej litery