初学Delphi
if语法:
if .. then
begin
end else
end;
弹出提示框:Showmessage('');
不等于写法:<>
黑色头发:http://heisetoufa.iteye.com/
procedure TFrmLltj.cbb_xxlkChange(Sender: TObject);
begin
if Trim(cbb_xxlk.Text)<>'' then
begin
Showmessage('没空');
end else
Showmessage('空了');
end;
end.
if语法:
if .. then
begin
end else
end;
弹出提示框:Showmessage('');
不等于写法:<>
黑色头发:http://heisetoufa.iteye.com/