datavalidator
2.0.2

DataValidator dirancang untuk menjadi pustaka validasi data sederhana.
Dukungan: [email protected]
$ boss install github.com/dliocode/datavalidatorTambahkan folder berikut ke proyek Anda, di Project> Options> Delphi Compiler> Pencarian Path
../datavalidator/src/core
../datavalidator/src/sanitializators
../datavalidator/src/validators
uses DataValidator;
var
LResult: IDataValidatorResult;
begin
LResult :=
TDataValidator.Values
.Validate('APELIDO')
.Trim
.&Not.IsEmpty.WithMessage('Você não informou o seu apelido!')
.IsAlpha(TDataValidatorLocaleLanguage.tl_pt_BR).WithMessage('Seu apelido deve conter apenas letras!')
.IsLength(1, 10).WithMessage('O apelido deve ter no máximo 10 caracteres!')
.&End
.Validate('[email protected]')
.Trim
.&Not.IsEmpty.WithMessage('Você não informou o seu e-mail!')
.IsEmail.WithMessage('Não é um e-mail válido!')
.NormalizeEmail
.&End
.Check;
var
LJO: TJSONObject;
LResult: IDataValidatorResult;
begin
LJO := TJSONObject.ParseJSONValue('{"apelido":"DLIO", "email":"[email protected]"}') as TJSONObject;
LResult :=
TDataValidator.JSON(AJO)
.Validate('apelido')
.Value
.Trim
.&Not.IsEmpty.WithMessage('Você não informou o seu apelido!')
.IsAlpha(TDataValidatorLocaleLanguage.tl_pt_BR).WithMessage('Seu apelido deve conter apenas letras!')
.IsLength(1, 10).WithMessage('O apelido deve ter no máximo 10 caracteres!')
.&End
.&End
.Validate('email')
.Value
.Trim
.&Not.IsEmpty.WithMessage('Você não informou o seu e-mail!')
.IsEmail.WithMessage('Não é um e-mail válido!')
.NormalizeEmail
.&End
.&End
.Validate('login')
.Key // Faz a validação somente da key
.IsRequired.WithMessage('É obrigatório ter a Key "login" no JSON.')
.&End
.Value // Faz a validação somente do valor dentro da Key 'login'
.Trim
.&Not.IsEmpty.WithMessage('Você não informou o login!')
.IsAlpha(TDataValidatorLocaleLanguage.tl_pt_BR).WithMessage('Seu login deve conter apenas letras!')
.IsLength(1, 10).WithMessage('O login deve ter no máximo 10 caracteres!')
.&End
.&End
.Validate('nome')
.Key
.IsOptionalKey // É opcional - se existir a Key "nome" ele faz a validação
.&End
.Value
.Trim
.&Not.IsEmpty.WithMessage('Você não informou o nome!')
.IsAlpha(TDataValidatorLocaleLanguage.tl_pt_BR).WithMessage('Seu nome deve conter apenas letras!')
.IsLength(1, 10).WithMessage('O nome deve ter no máximo 10 caracteres!')
.&End
.&End
.CheckAll;
Periksa : Periksa semua validasi , tetapi jika ada item pengembalian palsu yang terganggu, mengembalikan satu pesan dengan kesalahan jika Anda punya!
Dokter : Periksa semua validasi , mengembalikan semua pesan dengan kesalahan jika Anda punya!
Menggunakan CheckAll(TDataValidatorCheckAll.tcFirst) itu hanya mengembalikan pesan kesalahan pertama dari setiap validasi .
Result := LResult.Ok; // True = Nenhum erro | False = Tem erro
Result := LResult.Informations.Message;
Result := LResult.Informations.GetItem(0).Message;
Result := LResult.Informations.Count;
Result := LResult.Values[0]; // Recupera o primeiro valor
function SchemaNome(const AField: string): IDataValidatorSchemaContext;
begin
Result :=
TDataValidator.Schema
.Validate
.Trim
.&Not.IsEmpty.WithMessage('Preencha o campo %s !', [AField]) // Não pode ser vazio
.IsLength(2, 10).WithMessage('O campo %s deve conter entre 2 a 10 caracteres!', [AField])
.IsAlpha(TDataValidatorLocaleLanguage.tl_pt_BR).WithMessage('O campo %s possui caracteres inválidos!', [AField])
.&End;
end;
function SchemaEmail(const AField: string): IDataValidatorSchemaContext;
begin
Result :=
TDataValidator.Schema
.Validate
.Trim
.&Not.IsEmpty.WithMessage('O %s não pode ser vazio!',[AField])
.IsLength(2, 999).WithMessage('O campo %s deve ter mais de 6 caracteres!', [AField])
.IsEmail.WithMessage('Não é um %s válido!',[AField])
.NormalizeEmail
.&End;
end;
begin
TDataValidator.Values
.Validate(ANome)
.AddSchema(SchemaNome('Nome'))
.&End
.Validate(AApelido)
.AddSchema(SchemaNome('Apelido'))
.IsUppercase.WithMessage('O apelido (${value}) deve ser digitado tudo em maiúscula!') // Add outra validação
.&End
.Validate(AEmail)
.AddSchema(SchemaEmail('E-mail'))
.&End
.Validate(AEmailConfirmacao)
.AddSchema(SchemaEmail('E-mail de confirmação'))
.&End
.CheckAll;
end.
Sanitizer adalah perawatan nilai.
Contoh: Sanitizers MD5: Ambil nilai validasi dan konversi ke MD5
TDataValidator.Values
.Validate('APELIDO')
.ToMD5
.&End
| Nama | Informasi |
|---|---|
| Bukan | Saat digunakan validator ini, itu menyangkal hasil validator. Contoh: Validasi ('Email'). & Not.Isempty Dipahami bahwa nilainya tidak harus kosong. |
| Berlari | Mendefinisikan apa yang harus dilakukan jika validasi itu tidak melewati validasi. Eksekusi prosedur ini adalah bentuk manual. Mantan: Chapsall.informations.getItem (0) .onexecute; |
| WithMessage | Mendefinisikan pesan kesalahan. Untuk menambahkan nilai yang divalidasi ke pesan, cukup tambahkan tag $ {value} . Contoh: isemail.withmessage ('email $ {value} tidak valid!') . output: E-mail null@@null está inválido! |
| Validasi untuk nilai | Validasi json (kunci/nilai) | Pembersih untuk nilai |
|---|---|---|
| CustomValue | (Kunci) | Penyesalan |
| Berisi | (Key) ISequired | Normalizeeemail |
| Endswith | (Nilai) CustomJsonValue | OnlyNumbers |
| Isalpha | (Nilai) isjsjonnull | Penghapusan |
| Isalphanumeric | (Nilai) isjsonboolean | Mengganti |
| Isacii | (Nilai) isjsonnumer | Tobase64Decode |
| Isbase32 | (Nilai) isjsonstring | Tobase64encode |
| Isbase58 | (Nilai) Minemtes | Semua |
| Isbase64 | (Nilai) Maxites | Semua -anetime |
| Isbetween | (Nilai) + validasi untuk nilai | TOHTMLDECODE |
| Isboolean | Tohtmlencode | |
| IsBtCaddress | Tointeger | |
| Iscnpj | Tolowercase | |
| ISCPF | Tomd5 | |
| ISCPFCNPJ | Tonumerik | |
| Isdate | Totime | |
| Isdatebetween | Touppercase | |
| ISDatequals | Tourldecode | |
| IsDategretethan | Turlencode | |
| Isdatelesthan | Memangkas | |
| IsDatetime | Trimleft | |
| Ismail | Trimright | |
| Ismpty | ||
| Isequals | ||
| Isethereumaddress | ||
| Isgaterthan | ||
| Isgtin | ||
| Isgtin8 | ||
| Isgtin12 | ||
| ISgtin13 | ||
| ISgtin14 | ||
| Ishexadecimal | ||
| IsHexcolor | ||
| ISinteger | ||
| ISIP | ||
| ISIPV4 | ||
| ISIPV6 | ||
| ISISO8601 | ||
| ISJSON | ||
| Isjsonarray | ||
| IsjsonObject | ||
| ISJWT | ||
| Islatlong | ||
| Islength | ||
| Islesssthan | ||
| Islocale | ||
| Islowercase | ||
| Ismacaddress | ||
| Ismagneturi | ||
| Ismd5 | ||
| IsMimetype | ||
| Ismongoid | ||
| Tidak negatif | ||
| Isnumeric | ||
| Isootal | ||
| Isocal | ||
| IspassportNumber | ||
| Bilangan isphonen | ||
| ISPORT | ||
| Ispositif | ||
| ISPOSTALCODE | ||
| Isrgbcolor | ||
| Isssn | ||
| Waktu | ||
| IsTimeBetween | ||
| IStimeequals | ||
| IsTimeGreatethan | ||
| ISTIMELESTHAN | ||
| Isuppercase | ||
| Isurn | ||
| Isuuid | ||
| Isuuidv1 | ||
| Isuuidv2 | ||
| Isuuidv3 | ||
| Isuuidv4 | ||
| Isuuidv5 | ||
| Iszero | ||
| Regexishatch | ||
| Dimulai dengan |