Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

2 сем / 7 лаба / 3 задание / ControlSisi

.pas
Скачиваний:
5
Добавлен:
18.07.2019
Размер:
720 б
Скачать
unit ControlSisi;

interface
procedure Sisi (pole:string; var znachenie:Char);
procedure XEXE (prostr,prostr2:string; var a:Boolean);

implementation
procedure Sisi (pole:string; var znachenie:Char);
begin
case Znachenie of
'0'..'9':;
#8:;
',' : if pos(',',pole)<>0 then Znachenie:=#0;
'-' :if Pos('-',pole)<>0 then znachenie:=#0;
else znachenie:=#0;
end;
end;

procedure XEXE (prostr,prostr2: string; var a:Boolean);
begin
if (prostr='-')
or ((Pos('-',prostr)<>0)and(Pos('-',prostr)<>1))
or ((Pos('-',prostr2)<>0)and(Pos('-',prostr2)<>1))
or (prostr='')or(prostr2='')
then
begin
a:=False;
end
else
a:=True ;
end;

end.
Соседние файлы в папке 3 задание
  • #
    18.07.20191.09 Кб5controlsisi.dcu
  • #
    18.07.2019720 б5ControlSisi.pas
  • #
    18.07.2019398 б5Project1.cfg
  • #
    18.07.20191.87 Кб5Project1.dof
  • #
    18.07.2019188 б5Project1.dpr
  • #
    18.07.2019876 б5Project1.res
  • #
    18.07.20196.17 Кб5Unit1.dcu