Здравствуйте, Гость
Суббота, 25.11.2017, 13:32
Главная Главная страница форума Регистрация Вход
Новые сообщения Участники форума Правила форума Поиск
Страница 1 из 11
Модератор форума: stalker, Ekz 
Форум » Все о Delphi » Начинающим » Исключительные ситуаци (создание пользовательской ИС)
Исключительные ситуаци
ДвуликаяДата: Воскресенье, 13.12.2009, 02:04 | Сообщение # 1
Ранг 1
Группа: Пользователи
Сообщений: 1
Награды: 0
Репутация: 0
Статус: Offline
ребята, помогите пожалуйста, не могу написать ИС которая будет сравнивать текущую дату с введенной и выводить сообщение об ошибке с вариантом ввести заново или выйти. Вот собственно код :

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;
подскажите что не так, заранее спасибо

 
skycarДата: Воскресенье, 13.12.2009, 03:01 | Сообщение # 2
Ранг 6
Группа: Проверенные
Сообщений: 116
Награды: 5
Репутация: 31
Статус: Offline
Нужно сравнивать введённую дату с текущей, и если они не совпадают, читать заново? Тогда так:
Code
implementation

{$R *.dfm}

function CompareDates(First, Second: TDate): Boolean;
begin
   Result:=First = Second;
end;

И вызывать ф-цию

Code
procedure TForm1.Button1Click(Sender: TObject);
begin
   if not CompareDates(StrToDate(Edit1.Text), Date) then ShowMessage('Ошибочка! =)'); // тут любые действия
end;
 
Форум » Все о Delphi » Начинающим » Исключительные ситуаци (создание пользовательской ИС)
Страница 1 из 11
Поиск:

Copyright DelphiDevelop.ru © 2008-2017
Хостинг от uCoz