delphi简单问题
IF THEN ELSE中多个条件怎么写，如：字符串S1，S2，S3，S4均要不为空。
怎么样把它写到IF中去？
请各位帮帮忙，谢谢！
if (S1<>'') and (S2<>'') and (S3<>'') and (S4<>'') then
begin
//...
end else begin
//...
end;
if (s1 <>'') and (s2 <>'') and (s3 <>'') then
begin
end;
if () and () and () then
if () or () or () then
jf
if (Trim(S1) <>'') and (Trim(S2) <>'') and (Trim(S3) <>'') and (Trim(S4) <>'') then
begin
//...
end else begin
//...
end;
建议特殊情况特殊操作
if not Sametext(s1+s2+s3+s4, '') then begin
end;
或者
if s1+s2+s3+s4 <> '' then begin
end;
if (s1 = '') or (s2 = '') or (s3 = '') or (s4 = '') then
begin
end
eles
begin
//均不为空执行体
end;
楼上几位的都挺好的，我接个分
相关问答：
就是一个服务端和一个客户端，里边有一些共用单元 ，我在 工程的SEARCH PATH里设置的路径，
里边有个结构体，我在服务端打开，加了成员，但是我在客户端其他单元访问不到我新加的，我在客户端打开那个单元，确实加� ......
想请问各位：盘点维护里面：盘盈亏数量=库存数量+入库数量-出库数量，这样做是对的吗，
楼上正解,正数盘盈 负数盘亏
一楼正确！
谢谢各位啦
就是：是不是 实际库存里的库存量 与你手动输进去的数量之间� ......
我在出库窗口写了个方法：ADOQueryBill 的bNum 字段的OnValidate方法 实现的是出库数量不能大于入库的数量，否则就重新输入数量，以下是我的代码：
procedure TFrmStockOut.ADOQueryBillbNum_Validate(Sender: TFie ......
我在网上找了个关于IEBHO的代码，然后按照哪个设置了，后来运行的时候出现
构建
[警告] Project2.dpr(14): File not found: 'MYbho.TLB'
[警告] Project2.dpr(16): File not found: 'MYbho.RES'
......
我在网上找了个关于IEBHO的代码，然后按照哪个设置了，后来运行的时候出现
[错误] Unit1.pas(15): Undeclared identifier: 'GetTypeInfoCount'
[错误] Unit1.pas(15): Undeclared identifier: 'GetTypeInfo ......
