|
|
|
Kontrola rodného čísla
|
12.12.2009
|
Úvod
Funkce zkontroluje rodné číslo zadané do Editu (bez lomítka). Kladný nebo záporný výsledek se zapíše do Labelu a zvýrazní barvou.
Prvky
Button1 (Caption: Zkontroluj)
Edit1 (MaxLength: 10)
Label1 (Caption: Čekám)
Kód
procedure TForm1.Button1Click(Sender: TObject);
var
Soucet : Real;
c : Integer;
s : String;
begin
Label1.Caption:='Čekám';
Label1.Font.Color:=clWindowtext;
if Edit1.GetTextLen = 11 then Edit1.text := copy(Edit1.text,1,6)+ copy(Edit1.text,8,4);
if Edit1.GetTextLen = 10 then begin
s := Edit1.text;
val(s,soucet,c);
Soucet := Soucet / 11;
if frac(soucet) <> 0 then Label1.Caption:='Chyba - Špatné číslo'
else Label1.Caption:='Ok - Správné číslo';
end;
If label1.Caption='Chyba - Špatné číslo' then Label1.Font.Color:=clred;
If label1.Caption='Ok - Správné číslo' then Label1.Font.Color:=clgreen;
end;
Ochrany
Povolené znaky u Editu
Snímek
|
|
|
