請教一個關於語法問題    請問下面的語法錯在哪裡，正確的寫法該如何？先謝謝啦！    ==================================================  case YCHM of 1:   IF SZY_GS.fieldbyname('DYJSFF').AsInteger=1 THEN   DataSet.FieldByName('YC1').AsInteger := SZY_KJYC.FieldByName('P1').AsInteger   + SZY_GS.fieldbyname('DYJS').AsInteger   ELSE   DataSet.FieldByName('YC1').AsInteger := ABS(SZY_KJYC.FieldByName('P1').AsInteger   - SZY_GS.fieldbyname('DYJS').AsInteger);   ELSE   IF SZY_GS.fieldbyname('DEJSFF').AsInteger=1 THEN   DataSet.FieldByName('YC2').AsInteger := SZY_KJYC.FieldByName('P1').AsInteger   + SZY_GS.fieldbyname('DEJS').AsInteger   ELSE   DataSet.FieldByName('YC2').AsInteger := ABS(SZY_KJYC.FieldByName('P1').AsInteger   - SZY_GS.fieldbyname('DEJS').AsInteger);   ELSE   IF SZY_GS.fieldbyname('DSJSFF').AsInteger=1 THEN   DataSet.FieldByName('YC3').AsInteger := SZY_KJYC.FieldByName('P1').AsInteger   + SZY_GS.fieldbyname('DSJS').AsInteger   ELSE   DataSet.FieldByName('YC3').AsInteger := ABS(SZY_KJYC.FieldByName('P1').AsInteger   - SZY_GS.fieldbyname('DSJS').AsInteger);    寫程序——新問題會接踵而來！

您好: 怎不把錯誤訊息秀出來? case YCHM of 1: IF SZY_GS.fieldbyname('DYJSFF').AsInteger=1 THEN DataSet.FieldByName('YC1').AsInteger := SZY_KJYC.FieldByName('P1').AsInteger + SZY_GS.fieldbyname('DYJS').AsInteger ELSE DataSet.FieldByName('YC1').AsInteger := ABS(SZY_KJYC.FieldByName('P1').AsInteger - SZY_GS.fieldbyname('DYJS').AsInteger); ELSE IF SZY_GS.fieldbyname('DEJSFF').AsInteger=1 THEN DataSet.FieldByName('YC2').AsInteger := SZY_KJYC.FieldByName('P1').AsInteger SZY_GS.fieldbyname('DEJS').AsInteger ELSE DataSet.FieldByName('YC2').AsInteger := ABS(SZY_KJYC.FieldByName('P1').AsInteger - SZY_GS.fieldbyname('DEJS').AsInteger); ELSE IF SZY_GS.fieldbyname('DSJSFF').AsInteger=1 THEN DataSet.FieldByName('YC3').AsInteger := SZY_KJYC.FieldByName('P1').AsInteger SZY_GS.fieldbyname('DSJS').AsInteger ELSE DataSet.FieldByName('YC3').AsInteger := ABS(SZY_KJYC.FieldByName('P1').AsInteger - SZY_GS.fieldbyname('DSJS').AsInteger); 紅色的部分拿掉. 發表人 - supman 於 2005/05/10 03:38:21

寫程序——新問題會接踵而來！

您好, 在 delphi 裡一個 if 只能有一個 else 但可以有很多個 else if 所以應該這麼寫:

if ... then
else if ... then
else if ... then
...
else // 最後一個才用 else

或者

if ... then
else
begin
  if ... then
  else
  begin
     if ... then
     else
  end;
end;

-- hagar.

您好: 上傳圖片請改用jpg,不然要下載很久 您出現錯誤訊息的地方是因為上面的else少了if case YCHM of 1: IF SZY_GS.fieldbyname('DYJSFF').AsInteger=1 THEN DataSet.FieldByName('YC1').AsInteger := SZY_KJYC.FieldByName('P1').AsInteger + SZY_GS.fieldbyname('DYJS').AsInteger ELSE if DataSet.FieldByName('YC1').AsInteger := ABS(SZY_KJYC.FieldByName('P1').AsInteger - SZY_GS.fieldbyname('DYJS').AsInteger) ELSE IF SZY_GS.fieldbyname('DEJSFF').AsInteger=1 THEN DataSet.FieldByName('YC2').AsInteger := SZY_KJYC.FieldByName('P1').AsInteger SZY_GS.fieldbyname('DEJS').AsInteger ELSE if DataSet.FieldByName('YC2').AsInteger := ABS(SZY_KJYC.FieldByName('P1').AsInteger - SZY_GS.fieldbyname('DEJS').AsInteger) ELSE IF SZY_GS.fieldbyname('DSJSFF').AsInteger=1 THEN DataSet.FieldByName('YC3').AsInteger := SZY_KJYC.FieldByName('P1').AsInteger SZY_GS.fieldbyname('DSJS').AsInteger ELSE if DataSet.FieldByName('YC3').AsInteger := ABS(SZY_KJYC.FieldByName('P1').AsInteger - SZY_GS.fieldbyname('DSJS').AsInteger);