Код:
procedure TForm1.Lat1Change(Sender: TObject);
var a: string;
begin
a:= Lat1.Text;
if a[1] = ' ' then a[1]:= '0';
if a[1] = '9' then a[2]:= '0';
if a[4] > '6' then a[4]:= '6';
if a[4] = '6' then a[5]:= '0';
if a[4] = '6' then a[7]:= '0';
end;
Как сделать проверку последнего символа, он должен принимать всего два значения либо 'N' либо 'S'
Код:
Case a[9] of
'N','S':exit;
else
Showmessage('Error');
этот код работает но постоянно выдаёт ошибку. пока не ввиду N или S как можно избежать этого?