Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   funcion que reemplace el Val de Clipper (https://www.clubdelphi.com/foros/showthread.php?t=35828)

BlueSteel 21-09-2006 18:49:15

funcion que reemplace el Val de Clipper
 
Hola a todos... :D

Tengo una consulta... existe alguna funcion o comando que reemplace al VAL que se utilizaba en Clipper

dicha funcion permitia convertir un caracter (string) a numero... pero con la salvedad de que si el string era una letra, palabra o estaba vacio, lo convertia en cero. (0) y no daba error... lo que hace el StrToInt...

seoane 21-09-2006 18:56:00

:confused: ¿que te parece la funcion StrToIntDef

Código Delphi [-]
var
  i: integer;
  s: string;
begin
  i:= StrToIntDef(S,0);
end;

Caral 21-09-2006 19:03:51

Seoane y Roman
Se que la pregunta es tonta pero me muero de curiosidad
Conozco
Código Delphi [-]
StrToInt
paso de str a int Bueno pero que es esto
Código Delphi [-]
StrToIntDef
que est Def para que sirve? que hace?
Lamento la ignorancia pero tengo que pregunar.
Saludos

seoane 21-09-2006 19:12:16

Cita:

Empezado por Caral
que est Def para que sirve? que hace?
Lamento la ignorancia pero tengo que pregunar.

StrToIntDef no es mas que una función parecida a StrToInt, solamente que cuando la cadena no es un numero en vez de generar una excepción se limita a devolver el numero por defecto, el que nosotros le pasamos como segundo parámetro.

Solo hay que ver la implementación de cada una de ellas para entender como funcionan:

Código Delphi [-]
function StrToInt(const S: string): Integer;
var
  E: Integer;
begin
  Val(S, Result, E);
  if E <> 0 then ConvertErrorFmt(@SInvalidInteger, [S]);
end;

function StrToIntDef(const S: string; Default: Integer): Integer;
var
  E: Integer;
begin
  Val(S, Result, E);
  if E <> 0 then Result := Default;
end;

Caral 21-09-2006 19:15:44

Muchas Gracias
Copiado y anotado Maestro
Def= por Defecto
y pasa segundo parametro asignado.
No me canso de aprender.
Saludos

BlueSteel 21-09-2006 20:59:24

funciono...gracias
 
gracias... funciono Ok...:cool: :p


La franja horaria es GMT +2. Ahora son las 03:01:41.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi