Verificați GUID-ul
Am obtinut acest ghid:
Funcția TForm1.GuNewGuid: șir;
var ID: TGUID;
începe
Rezultat: = ""; dacă CoCreateGuid (ID) = S_OK apoi Result: = GUIDToString (ID);
se încheie;
Î: Să GUID este introdusă manual prin editarea, există o caracteristică în Delphi, care poate verifica evlyaetsya dacă textul introdus un GUID valid (nu este un duplicat în sistem, și anume de intrare korretntnost, paranteze, având în vedere un 16 hexazecimal Simola și numărul corect și cratime )?
> Obțineți acest ghid:
nu un GHID, ci o reprezentare de șir.
dacă ar fi, atunci după intrarea "prin editare" ar trebui să faceți conversia și nu ar fi apărut chestiunea verificării.
Întrebarea nu este despre asta
Ați avea toate funcțiile gata, funcția adăugați una, funcția adăugați două unități.
luați intrarea.
generează un ghid normal, transformă într-un șir.
eliminați atât cifrele, cât și literele din ambele linii.
dacă după ce această linie a coincis, introduceți ghidajul corect.
pentru cei care nu doresc să știe despre obișnuiți sau măști
> întrebarea nu este despre asta
despre asta. Conversia intrării la tipul natural este, de asemenea, un test de corectitudine. și anume dacă este folosit corect, nimic altceva nu este necesar. dar, naibii, utilizarea constantă ne-țintită. (nu de la tine aici era vorba despre datele din eksel?) și "Știu cu toții că data este un număr, dar de ce." Povestea taurului alb nu se sfârșește, nu va muri.
P.S. Nu mă cert, uneori este necesar, dar naibii, cel care este capabil să decidă că "acesta este acest lucru, cel mai mult, uneori," el înțelege și, prin urmare, nu pune astfel de întrebări.
> O modalitate pentru cei care nu vor să știe despre obișnuiți sau măști
IMHO, pentru cei care nu citesc docul, ci inventează biciclete. pentru a cunoaște regularii se aplică, de asemenea.
Dacă StringToGUID reușește să returneze GUID-ul solicitat. Dacă StringToGUID nu reușește o excepție EConvertError este ridicat.
> Codul introdus este GUID corect
la cine și pentru ce este nevoie să introducă (și, în general, să știe) ce sau ce să conducă?
Și el, de exemplu, citește dintr-un fișier. și, în consecință, vreau să înțeleg - el a citit linia corectă sau există gunoi.
2 Dmitri Belkevich, Yuri Zotov - uh-huh, deci norm.work:
Funcția isStrGUIDOk (GuidStr: string): bool;
începe
Rezultat: = false;
încerca
StringtoGuid (GuidStr); Rezultat: = true;
cu excepția
Showmessage ("GUID nu este valid");
End;
End;
dacă nu isStrGUIDOk (edit1.text) apoi ieșiți;
Gu # xA0; (27.06.11 21:26) [17]
Scrieți, scrieți, scrieți,
Compune întregul secol,
Deoarece parodistul -
E și un om.
Nu vrea să întârzie
Cureaua este mai strânsă.
Pentru el, poemele tale -
Pâinea o bucată.
Tu scrii și chemarea mea
Nu te gândi la lingușire,
De parodist
De asemenea, vrea să mănânce!