头晕，不想动。帮偶写个函数吧。得到结果就结贴

Question

判断一变量
如果为''返回0
否则返回原值

Answer 1

Function fullto0(srstr:string):string;
begin
  if srstr='' then
    result:='0'
  else
    result:=srstr;
end;哎，头疼得要命。非要自己写也没人可怜一下俺来一个人给分啦

Answer 2

Function fullto0(srstr:string):string;
begin
  if srstr='' then
    result:=0;
end;

Answer 3

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FR_Class, StdCtrls;type
  TForm1 = class(TForm)
    frReport1: TfrReport;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);  private
    { Private declarations }
  public
    { Public declarations }
    Function fullto0(v:Variant):Variant;
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
  v:Variant;
begin
  v:=1;
  ShowMessage(VarToStr(fullto0(v)));
  v:='';
  ShowMessage(VarToStr(fullto0(v)));
end;function TForm1.fullto0(v: Variant): Variant;
begin
  Result:=v;
  if VarToStr(v)='' then
    Result:=0  ;
end;
end.