delphi 如何判断EDIT为空

1. delphi 如何判断EDIT为空

用trim函数，可以避免因空格键输入的空白字符引起的判断错误，
trim(edit.text)=''

2. delphi怎么发送回车键到另外一个程式的Edit窗口上? 请高手门指教! 谢谢啦 !

var
  FormHandle, EditHandle: Integer;
  Buf: Array [0..255] of Char;
begin
  FormHandle := FindWindow(nil, 'Form1'); //假设另一个程序的窗口标题是Form1
  if FormHandle  0 then
  begin
    EditHandle := Findwindowex(FormHandle, 0, 'TEdit', 'Edit1'); //假设另一个程序的Edit是Edit1
    if EditHandle  0 then
       PostMessage(EditHandle, WM_KEYDOWN, VK_RETURN, 0);
  end;
end;

3. delphi 判断当前存在焦点的edit

onenter事件
procedure TForm1.Edit1Enter(Sender: TObject);
begin
 showmessage('edit1取得焦点');
end;

4. delphi 怎么判断edit内容为空

if trim(edit1.text)='' then
begin
//.......
end;
不是判断的问题，你写的语句逻辑有问题
当只有3个输入的时候就只出来一个数据放在edit6
那么，不是三个输入的时候呢？edit6和edit7都出现？
if (trim(edit4.text)='')or(trim(edit5.text)='')then
begin
  flow:=Q/T/S/ps;
  edit6.Text:=FormatFloat('0.00',flow);         //保留两位小数
end      
else
begin
  PM:=((2*(p1+(p2*P2/(p1+p2))))/3)/0.1 ;
  flow:=Q/T/S/ps;
  AFLOW:=q/t/s/pm;
  edit6.Text:=FormatFloat('0.00',flow);     
  edit7.Text:= FormatFloat('0.00',aflow);
end;

5. delphi 判断每个edit的值不同

procedure TForm1.Button1Click(Sender:TObject);
var
  a:array[1..8] of integer;
  i,j:integer;
begin
  for j:=1 to 8 do begin
    a[j] := StrToInt(TEdit(FindComponent('Edit'+IntToStr(j))).Text);
    if (a[j]30) then begin
      ShowMessage('错');
      Exit;
    end;
  end;
  for i:=1 to 7 do
    for j:=i+1 to 8 do 
      if a[i]=a[j] then begin
        ShowMessage('错');
        Exit;
      end;
end;

6. Delphi 中怎么实现一个公式求整数去掉小数点后面部分，和怎么让程序关闭后在打开edit显示关闭前的数据。

1、关于取整，你没说取整规则。
   添加引用：Math
   直接删除小数部分，返回整数：trunc，如果trunc（2.234），则返回 2。其他：
trunc 和 round 是 system unit 里的函数，缺省就可以用。
floor 直接往小的取，比如 floor(-123.55)=-124，floor(123.55)=123
trunc 直接切下整数，比如 trunc(-123.55)=-123, floor(123.55)=123
ceil 直接往大的取，比如 ceil(-123.55)=-123， ceil(123.55)=124
round 计算四舍五入，比如 round(-123.55)=-124，round(123.55)=124

2、重启后text自动读取
   两种方案，写注册表，或者写ini文件。
   写注册表：不用额外添加文件，速度快，但会使注册表变大。不过数据少也无所谓了。
   写ini文件：需要生成额外的文件。引用IniFiles。
procedure TForm1.Button2Click(Sender: TObject);
var
  ini:TIniFile;
  num : integer;
  name: string;
begin
  Ini := TIniFile.Create('c:\aa.ini');
  //读取
  num:= ini.ReadInteger('nums','num1',0);
  name:= ini.ReadString('names','name1','');
  //写入
  name := '李三';
  num := 1;
  ini.WriteString('names','name1',name);
  ini.WriteInteger('nums','num1',num);
end;
   
在你的窗口退出时onclose事件，把每个text的内容写入ini文件
在你的窗口启动时onCreate事件或其他，读取，并给text赋值。

7. [delphi7]怎么在edit.text上输出公式

肯定不行啊。
你是想求y的值？
var  a, b : integer;  x : integer;begin//   假设这里所有参加计算的数都是整形的        a := strtoint(editA.Text);    b := strtoint(editB.Text);    x := strtoint(editX.Text);    editY.Text := intToStr(b * x + a);     end;建议题主先看看delphi基础，或视频。

8. delphi 判断Edit.text 是否等于数值

//把字符串转换就可以了,strtoint strtofloat等函数
if strtoint(edit1.text)=2 then
begin

end;