Comprobación de MaskEdit

[*Caro*]

Empezado por lKinGl

..........comprenderlo, podrias explicarmelo detalladamente para asimilarlo mejor?

Te explico:

Código Delphi [-]
procedure TForm1.MaskEdit1Exit(Sender: TObject);
var
  Aux : String;
begin
 //Trim elimina los espacios de los costados
 Aux := Trim(MaskEdit1.Text); 
 
 //Recorremos hasta terminar de quitar los espacios 
 //Pos nos da la posición donde se encuentra el primer espacio
 While Pos(' ', Aux) > 0 do
  //Delete nos borrar de Aux el espacio de la posición donde ha encontrado Pos
   Delete(Aux,Pos(' ', Aux),1);
 
 //Preguntamos por su longitud, si es menor a 10 es porque por ahí hay algún espacio y ha sido eliminado
 if Length(Aux)<10 then
  begin
   showmessage('No ha terminado de llenar ');
   MaskEdit1.SetFocus;
  end;
end;

Saluditos