ребята, помогите пожалуйста, не могу написать ИС которая будет сравнивать текущую дату с введенной и выводить сообщение об ошибке с вариантом ввести заново или выйти. Вот собственно код : procedure TForm1.Button2Click(Sender: TObject);
var
s2,s3,s4,s5: string;
//canClose: boolean;
b: boolean;
s,q,p: string;
begin
s := edit4.text;
q := edit5.text;
p := edit6.text;
if b = true then
s2 := dateToStr(date);
s3 := s2[1] + s2[2];
s4 := s2[3] + s2[4];
s5 := s2[5] + s2[6] + s2[7] + s2[8];
try
if (StrToInt(s) <> strtoint(s3)) and
(strtoint(q) <> strtoint(s4)) and
(strtoint(p) <> strtoint(s5)) then
except
ShowMessage('Введена дата отличная от текущей. Повториь ввод?')//, mtConfirmation, [mbYes, mbNo], 0) = IDYES;
//if CanClose = false then Close;
end;
подскажите что не так, заранее спасибо
