Como extraer solo los numeros en delphi

[igamerpc]

Buenos dias:



Sabes como extreaer numeros ejemplo:
CODIGO201 ese es string de la celda


Extraer solo numero para ir a otra tabla con el int 201.

[[movorack]]

Puedes recorrer uno a uno los caracteres evaluando si es un número.

Código Delphi [-]
function ExtraeNumeros(S: string): Integer;
  var
    i: Integer;
    lStTemp: string;
begin
  Result := 0;
  lStTemp := '';

  for i := 1 to Length(S) do
  begin
    if CharInSet(S[i], ['0'..'9']) then
      lStTemp := lStTemp + S[i];
  end;

  TryStrToInt(lStTemp, Result);
end;

También podrías usar Expresiones regulares

[igamerpc]

Eso me suena. Muchas gracias voy a comprobar a ver que tal.

[ecfisa]

Hola.

Otra opción:

Código Delphi [-]
function GetNumericCode(const strCode: string): Integer;
var
  c,i: Integer;
begin
  Result := 0;
  c := 1;
  for i := Length(strCode) downto 1 do
    if strCode[i] in ['0'..'9'] then
    begin
      Result := Result + (Ord(strCode[i])-Ord('0')) * c;
      c := c * 10;
    end;
end;

Ejemplo de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessageFmt('%d',[GetNumericCode('CODIGO201')]);
end;

Saludos

[igamerpc]

Funciona perfecto.

[igamerpc]

Extraer todos los registro de la tabla2 pasar a otra tabla1
La tabla 2, nomf es string ejemplo la cadena codigo200

La tabla 1, fich es integer eso ahi poner 200.



Bueno varios registros

Código Delphi [-]
While Not CFG.DBF_OLD.Eof do
        Begin
          fich:=MOD.tabla2.fieldbyName('NOMF').Value;

          Insertar_registro_fichero('prueba', fich, sender);

          MOD.tabla2.Next;
        end;

Código Delphi [-]
procedure Tform1.Insertar_registro_fichero(TablaN:string; fichero:integer; sender:TObject);
begin

If MOD.Conectar.Connected =False Then
    MOD.Conectar.Connected:=True;

  MOD.tabla1.TableName:=TablaN;
  MOD.tabla1.Active:=True;

  MOD.Command.SQL.Clear;
  MOD.Command.sql.Add('INSERT INTO '+TablaN+'(fich) VALUES(:fich)');
  MOD.Command.ParamByName('fich').Value:=fich;

  Try
    MOD.Command.Execute;

  Except

  End;
  MOD.tabla1.Refresh;

end;

No se si hace falta poner functions extraer solo numeros.