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里设置的路径，
里边有个结构体，我在服务端打开，加了成员，但是我在客户端其他单元访问不到我新加的，我在客户端打开那个单元，确实加� ......
接收到的文本内容是ucs2编码格式，请问怎样转换成中文
按我的理解，UCS-2是字符集，具体的编码有UTF-8，UTF-16 (LE/BE)等。
如果你用Delphi 2009及以上版本，可以看看TEncoding类。
btw. 你说的转换成中文是啥意� ......
请问Delphi有树形控件吗？
怎样使用？
Ttreeview
treeview.items.addchild(nil(上级节点),'案发时发'(text));
raize 控件包里面有，csdn有下载的
查帮助TTreeView和TNode两个类
TTreeView ......
我在网上找了个关于IEBHO的代码，然后按照哪个设置了，后来运行的时候出现
构建
[警告] Project2.dpr(14): File not found: 'MYbho.TLB'
[警告] Project2.dpr(16): File not found: 'MYbho.RES'
......
