Consultas con TRIM

[[duilioisola]]

Tembién podrías pasar toda la patente a mayúsculas, para evitar duplicados
B1234567 no es igual a b1234567

Código Delphi [-]
procedure TDataModule.TCamionBeforePost(DataSet: TDataSet);
var 
   i : integer;
   s : string;
begin
  {Inicializo s. La utilizo como temporal para quitar espacios}
  s := '';
  {solo compruebo si estoy insertando}
  if (DataSet.State = dsInsert) then 
     {si hay un espacio dentro de PATENTE entonces pos > 0}
     if (pos(' ',TCamionPATENTE.AsString)>0) then
     begin
        {Recorro PATENTE caracter a caracter}
        for i := 1 to Length(TCamionPATENTE.AsString) do 
           {Si no es espacio agrego el caracter a s, por lo tanto los espacios no pasan}
           if (TCamionPATENTE.AsString[i]<>' ') then
              s := s + TCamionPATENTE.AsString[i];
           {Ahora que s no tiene espacios la utilizo como PATENTE}
           TCamionPATENTE.AsString := UpperCase(s);
     end;
end;