Срещнах решение на проблема в програма на Microinvest.
Те просто проверяват в началото датата и ако в нея има кирилица не стартират програмата.
Ето по-долу нещо елементарно за проверка.

function ProveriCyr(AStr:string):boolean;
var
I:integer;
begin
Result:=FALSE;
AStr:=AnsiUpperCase(AStr);
for I:=1 to length(AStr) do
if AStr in ['А'..'Я'] then
Result:=TRUE;
end;

Hummm - 4e na koj mu pre4i sistemnata nastrojka na datata - da mu se ne widi - toj triabwa da e kragal idiot - samo ako w komponent ima hardcoded izpolzwane na sistemna data - t.e. da wzima nastrojkite ot win-a togawa e problem (kato DesisionCube naprimer - ama towa e tapo )

Ako ne znaesh - mozesh da si predefinirash sistemnite nastrojki (ne samo za date/time - po samo za Delphi prilozenieto ti) - samo 4e mi kazi pone edna pri4ina kadaren programist da si darzi data ili time w string pole - kogato iskash da pokazwash da - ama da rabotish w stringowe e ludost - to4no i tam e problema.

A za MicroInvest ne mi gowori :(((((((

---
Е т'ва е живот!

Съдържаниет е скрито
Влезте за да го видите

Val63 използва готов компонент, който дава грешки при дата, в която е включена буква.

Ami po dobre w slu4aia da se poprawi komponenta - ako razibra se e wazmozno -kazi kakwo tolkowa izpolzwa - moze da namerim i drugo reshenie

---
Е т'ва е живот!

Съдържаниет е скрито
Влезте за да го видите