delphi - 是否可以使用 IF 语句调整过程的参数？

Question

我有两个几乎相同的过程，唯一的区别是其中一个参数的数据类型。

procedure InsertNewStringAnswer(AidQuestion: Integer; AAnswer: String);

和

procedure InsertNewBoolAnswer(AidQuestion: Integer; AAnswer: Boolean);

我需要根据问题更改答案类型。我是否必须编写两个过程并用第三个过程调用它们，或者有什么方法可以在运行时更改参数 AAnswer 的数据类型？

我正在编辑它以展示我如何构建解决方案。在这种情况下，我使用了 Variant 类型。我无法验证这是否是最佳做法，但它有效:)。

procedure InsertNewAnswer(AidQuestion: Integer; AAnswer: Variant);
var
  idNextRecord: string;
  isBoolean: Boolean;
  StrAAnswer: String;
  BoolAAnswer: Boolean;
begin
  With Connection.queryMain Do
  begin
    SQL.Clear;
    SQL.Text := 'select count(*) as summe from dbo.Answer';
    Open;
  end;
  idNextRecord := Connection.queryMain.FieldByName('summe').Asstring;
  With Connection.queryMain Do
  begin
    SQL.Clear;
//Here I check if the question has a boolean or string answer.
    SQL.Text :=('select isBool from dbo.Questions AS ISBOOL WHERE idQuestion= :SQLAidQuestion;');
    ParamByName('SQLAidQuestion').AsInteger := AidQuestion;
    Prepare;
    Open;
  end;
//and write it to a Variable.
  isBoolean := Connection.queryMain.FieldByName('isBool').AsBoolean;
  Connection.queryMain.SQL.Clear;
//I then use a if statement to change the Variant Type accordingly
  if isBoolean = True then
  begin
//Note that System.Variants does not have VarToBool so I use a workaround
    BoolAAnswer := StrToBool(VarToStr(AAnswer));
    AAnswer := BoolAAnswer;
    Connection.queryMain.SQL.Text :=
      ('INSERT INTO Frueherkennung.dbo.Answer' +
      '(idAnswer, idQuestion, Answer)VALUES(' + idNextRecord +
      ', :sqlQuestion, :sqlAAnswer);');
    Connection.queryMain.ParamByName('sqlQuestion').AsInteger := AidQuestion;
    Connection.queryMain.ParamByName('sqlAAnswer').AsBoolean := AAnswer;
  end
  else
  begin
    StrAAnswer := VarToStr(AAnswer);
    MessageDlg('iSBool:= False', mtError, [mbok], 0);
    AAnswer := StrAAnswer;
    Connection.queryMain.SQL.Text :=('INSERT INTO Frueherkennung.dbo.Answer' +
      '(idAnswer, idQuestion, Answer)VALUES(' + idNextRecord +
      ', :sqlQuestion, :sqlAAnswer);');
    Connection.queryMain.ParamByName('sqlQuestion').AsInteger := AidQuestion;
    Connection.queryMain.ParamByName('sqlAAnswer').Asstring := AAnswer
  end;
  With Connection.queryMain Do
  begin
    Prepare;
    Execute;
    SQL.Clear;
  end;
end;

谢谢大家的精彩回答。

Answer 1

如果 AAnswer 参数是允许其中几乎任何内容的变体类型，则您可以编写单个函数。

您还可以使用重载关键字保留两个过程但同名。

您还可以让一个过程将 AAnswer 作为指向调用者想要使用的存储的无类型指针。当然在那一刻，问题必须包含必要的信息来决定该点是指向 bool 值还是指向字符串。

最后这个选项真的不推荐。对我来说，最干净的解决方案是使用重载过程。

忘记了另一种可能性:使用常量数组类型的 AAnswer。