本人刚刚学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还请帮我看看,应该怎么改正,谢谢了

解决方案 »

  1.   

    if ( length(Edita.Text)='') then
      

  2.   

    if ( length(Edita.Text)=0) then  //这个地方不会(我试过Editb.Text=null,也不行)===========================================================================
    这句应该没问题?你直接用 if Edita.Text='' then
      

  3.   

    正常情况下,只要用
     if Edita.Text='' then  就可以了
    另外,这个要写在
      a :=StrToFloat(Edita.Text);
    之前,否则会报错
    另外,最好用Trim将前后空格去掉
      

  4.   

    谢谢各位,按照keiy的方法已经解决
      

  5.   

    if Edita.Text.Trim='' Then
    .... ....
      

  6.   

    早就解决了
    Edita.Text.Trim=''
      

  7.   

    if CompareStr(Str1,Str2)=0 then
      //str1=str2
    else
      //str2<>str2