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

[wofan]

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

[wofan]

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

哎，头疼得要命。非要自己写

也没人可怜一下俺

来一个人给分啦

[纯冰糖]

你写的正确啊

[纯冰糖]

你自己都写对了啊

[todouwang]

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

[yueyixing]

稍等，捎上俺。谢谢

[wofan]

俺知道写对了，今天有点懒。不想动脑子，嘿嘿

当送分玩

[angelface]

那我可得接！

[liufuyahong]

unit Unit1;

interface

uses
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.

[savagexyz]

呵呵，接分

[梅青松]

接分啦