本人刚刚学delphi,现写一程序,部分代码如下
var a,b,c : real;
StrOfX1,StrOfX2,StrOfX,sb,xb : string;
begin
a :=StrToFloat(Edita.Text);
b :=StrToFloat(Editb.Text);
c :=StrToFloat(Editc.Text);
if ( length(Edita.Text)=0) then //这个地方不会(我试过Editb.Text=null,也不行)
begin
Label5.Caption :='请输入数据!';
end还请帮我看看,应该怎么改正,谢谢了
var a,b,c : real;
StrOfX1,StrOfX2,StrOfX,sb,xb : string;
begin
a :=StrToFloat(Edita.Text);
b :=StrToFloat(Editb.Text);
c :=StrToFloat(Editc.Text);
if ( length(Edita.Text)=0) then //这个地方不会(我试过Editb.Text=null,也不行)
begin
Label5.Caption :='请输入数据!';
end还请帮我看看,应该怎么改正,谢谢了
这句应该没问题?你直接用 if Edita.Text='' then
if Edita.Text='' then 就可以了
另外,这个要写在
a :=StrToFloat(Edita.Text);
之前,否则会报错
另外,最好用Trim将前后空格去掉
.... ....
Edita.Text.Trim=''
//str1=str2
else
//str2<>str2