validar placa de carro

Delphi

26/10/2005

gostaria de saber como faço para validar a placa de um carro quando o usuário digitar na edit.

ABG1990 - Quero saber os 3 primeiros sao letras e os 4 ultimos sa numeros


Fmtrevisan

Fmtrevisan

Curtidas 0

Respostas

_rodfaria_

_rodfaria_

26/10/2005

Use a função ´copy´ e alguns ´if´s´ para saber.

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
Christian_adriano

Christian_adriano

26/10/2005

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
Fmtrevisan

Fmtrevisan

26/10/2005

agradeço pela ajuda,, e agradeço tambem pelo comentário da expressão regular,, ja estava procurando também....


GOSTEI 0
Lindomar Sousa.

Lindomar Sousa.

26/10/2005

Basa colocar um TMaskEdit e atribuir a seguinte máscara: >lll-9999;1;_
GOSTEI 0
POSTAR