Extracción de parte de una cadena

[Arkaz]

Hola a todos!.intentando hacer un programa que compruebe que un nif es correcto. Para ello utilizo un maskedit para que el usuario meta el nif con la mascara : 00000000-L , para que meta 8 numeros y una letra.
Lo que intento hacer es coger parte de la informacion del maskedit, concretamente los 8 digitos. Pero no se si hay alguna funcion o alguna forma de coger solo esa parte de la cadena. Seguro que hay alguna forma y no es tan complicado, pero ahora mismo no se me ocurre nada. ¿se os ocurre algo?
Muchas gracias por adelantado!!!

[dec]

Hola,

Ahí van un par de funciones que logré a partir de cierto Hilo, que, aunque he buscado, no consigo encontrar. Se trataba sobre el número "RUT" (creo recordar) de Chile y la solución la proporcionó Casimiro: en ella se basan estas funciones, que, repito, no sé si te servirán en todo caso:

Código Delphi [-]
 { ············································································ }
 
 function QuitarLetras(const cadena: string) : string;
 var
   i: integer;
 begin
   for i := 1 to Length(cadena) do
     if cadena[i] in ['0'..'9'] then
       Result := Result + cadena[i];
 end;
 
 { ············································································ }
 
 function QuitarNumeros(const cadena: string) : string;
 var
   i: integer;
 begin
   for i := 1 to Length(cadena) do
     if not (cadena[i] in ['0'..'9']) then
       Result := Result + cadena[i];
 end;
 
 { ············································································ }

[JavierO]

si quieres hacer un substring de un texto, tambien puedes utilizar la función Copy

lw_numero := StrToInt(Copy(Edit.text,1,8));

[Arkaz]

Ok. Pues muchisimas gracias. Voy a probar a ver que tal.
Gracias otra vez!!!