delphi7.0编译出现问题,请高手们指导一下

如果有两种条件都需要满足,用if then else语句怎样编
我用了if (条件1)and (条件) then else 提示语法错误

if (条件) then
if (条件2) then (结果1)
else (结果2) 这种不显示(结果2)

用if (条件1) then
begin
if (条件2) then
结果1
end
else 结果2 这种出现第一种条件满足的话就不出现(结果2)
高手大侠们,请帮帮我
不管(条件1)不正确,或(条件2)不正确,都显示结果2

举报该文章

其他看法

第1个回答 2008-08-07

把代码贴出来吧，估计你的else语法错误要么是 then和else中间有多个语句却没有用begin。。end，要么是else前面的最后一句后面有；号，这是新手常见的错误。至于出来结果与预想不一样，一般是程序设计的逻辑错误，好好再查查代码，不行的话，画画流程图吧

第2个回答 2008-08-07

用这个if (条件1)and (条件) then else 是条件要加上括号
如：if (str1='') and (str2='') then edit1.text:=str1
else edit1.text:=str2;本回答被提问者采纳

delphi7.0编译出现问题,请高手们指导一下
把代码贴出来吧，估计你的else语法错误要么是 then和else中间有多个语句却没有用begin。。end，要么是else前面的最后一句后面有；号，这是新手常见的错误。至于出来结果与预想不一样，一般是程序设计的逻辑错误，好好再查查代码，不行的话，画画流程图吧 ...

delphi memo分段写入和读取文本,文本分隔符:“#”
\/\/读取 var sl :TStringList;begin sl := TStringList.Create;try sl.LoadFromFile('文本位置');sl.Delimiter := '#';sl.DelimitedText := sl.Text;Memo1.Lines.Text := sl.Strings[0];Memo2.Lines.Text := sl.Strings[1];Memo3.Lines.Text := sl.Strings[2];Memo4.Lines.Text := ...