Fórum validar placa de carro #300865
26/10/2005
0
ABG1990 - Quero saber os 3 primeiros sao letras e os 4 ultimos sa numeros
Fmtrevisan
Curtir tópico
+ 0Posts
26/10/2005
_rodfaria_
Se preferir pode baixar TRegExpr de http://www.regexpstudio.com/TRegExpr/TRegExpr.html e montar uma expressão semelhante a
[a-zA-Z][a-zA-Z][a-zA-Z]-[0-9][0-9][0-9][0-9] para validar o edit.
Exemplo de uso de TRegExpr:
http://forum.clubedelphi.net/viewtopic.php?t=67957
Referência sobre expressões regulares:
http://www.aurelio.net/er
Gostei + 0
26/10/2005
Christian_adriano
function ValidaPlacaVeiculo(sPlaca:String): Boolean; var i : byte; begin sPlaca := UpperCase(sPlaca); Result := Length(sPlaca) = 8; if (Result) then for i := 1 to 8 do begin // Testa as Letras... if (i < 4) then Result := sPlaca[i] in [´A´..´Z´]; if not(Result) then Exit; // Testa os Nros... if (i >= 5) then Result := sPlaca[i] in [´0´..´9´]; end; end;
Gostei + 0
27/10/2005
Fmtrevisan
Gostei + 0
12/01/2019
Lindomar Sousa.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)