Question

请大虾们，把我写的delphi条件判断语句合理化，谢谢

with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('select * from cd');
open;
if Edit1.Text='' then
begin
ShowMessage('没改');
Exit;
end
else begin
Edit;
FieldByName('c1').AsString:=Edit1.Text;
Post;
ShowMessage('OK');
c1.Caption:=fieldbyname('C1').AsString;
end;
if Edit2.Text='' then
begin
ShowMessage('没改');
Exit;
end else
begin
Edit;
FieldByName('c2').AsString:=Edit2.Text;
Post;
ShowMessage('OK');
c2.Caption:=fieldbyname('c2').AsString;
end;
end;
实现的功能很简单，为空则不改，反之则改，急急急啊

Answer 1

呵呵，代码没大问题。。。。

edit；改成Append;
去掉Exit;

追问

append是添加 我要的是修改。
去掉exit的话，如果2个edit为空或非空 就会连续出现两次相同的提示

追答

if (edit1.text='') and (edit2.text='') then begin ShowMessage('没改'); exit;end;

if Edit1.Text'' then
begin
Edit;
FieldByName('c1').AsString:=Edit1.Text;
Post;
ShowMessage('OK');
c1.Caption:=fieldbyname('C1').AsString;
end;
if Edit2.Text'' then
begin
Edit;
FieldByName('c2').AsString:=Edit2.Text;
Post;
ShowMessage('OK');
c2.Caption:=fieldbyname('c2').AsString;
end;
end;

追问

2个edit非空的话出现两次‘OK’的提示

追答

那就加一个变量，needShowMessage:Boolean;

if (edit1.text='') and (edit2.text='') then begin ShowMessage('没改'); exit;end;

if Edit1.Text'' then
begin
Edit;
FieldByName('c1').AsString:=Edit1.Text;
Post;
needShowMessage:=True;
c1.Caption:=fieldbyname('C1').AsString;
end;
if Edit2.Text'' then
begin
Edit;
FieldByName('c2').AsString:=Edit2.Text;
Post;
needShowMessage:=True;
c2.Caption:=fieldbyname('c2').AsString;
end;
end;
if needShowMessage then ShowMessage('OK');