Недавно добавленные исходники
• TDictionary Custom Sort 498 • Fast Watermark Sources 866 • 3D Designer 1 795 • Sik Screen Capture 1 451 • Patch Maker 1 454 • Айболит (remote control) 1 385 • ListBox Drag & Drop 1 149 • Доска для игры Реверси 21 088 • Графические эффекты 1 328 • Рисование по маске 1 267 • Перетаскивание изображений 1 082 • Canvas Drawing 958 • Рисование Луны 795 • Поворот изображения 752 • Рисование стержней 800 • Paint on Shape 485 • Генератор кроссвордов 747 • Головоломка Paletto 657 • Теорема Монжа об окружностях 836 • Пазл Numbrix 604 • Заборы и коммивояжеры 835 • Игра HIP 549 • Игра Go (Го) 522 • Симулятор лифта 542 • Программа укладки плитки 503 • Генератор лабиринта 560 • Проверка числового ввода 516 • HEX View 593 • Физический маятник 521 • Задача коммивояжера 553

Главная страница

Исходники (более 1 300 исходных кодов)

Компоненты

Проверка дат в Table

procedure TMainForm.Table2DATASetText(Sender: TField; const Text: string);
begin
  try
    Table2.Fields[1].Value := StrToDate(Text);
  except
    MessageDlg('Введите правильную дату!', mtError, [mbOk], 0);
    Abort;
  end;
end;

Проверка дат в Table

Похожие по теме исходники