delphi
if Valor then //si Valor es número entonces... Valor := QuotedStr(Valor) else Valor;
Saludos.
Escrito 02 febrero 2009 - 08:06
if Valor then //si Valor es número entonces... Valor := QuotedStr(Valor) else Valor;
Escrito 02 febrero 2009 - 09:26
function IsStrANumber(const S: string): Boolean; var P: PChar; begin P := PChar(S); Result := False; while P^ <> #0 do begin if not (P^ in ['0'..'9']) then Exit; Inc(P); end; Result := True; end;
Escrito 03 febrero 2009 - 07:35
var Numero: integer; ... if TryStrToInt(Edit1.Text, Numero) then ....
Escrito 03 febrero 2009 - 07:36
var i: Integer; begin if TryStrToInt(Valor,i) then //si Valor es número entonces... Valor := QuotedStr(Valor) else Valor; end;
Escrito 03 febrero 2009 - 07:14