delphi - 将函数结果作为变量添加到字符串 - SAM Broadcaster

Question

我有一个抓取随机 URL 的功能。

FUNCTION randurl : String;
BEGIN
  // Randomize URL
  Rx2 := RandomInt(4);
  if (Rx = 0) then
    result := 'www.site1.com'
  else if (Rx2 = 1) then
    result := 'www.site2.com'
  else if (Rx2 = 2) then
    result := 'www.site3.com'
  else if (Rx2 = 3) then
    result := 'www.site4.com';
END;

我有一个正在编译的字符串...

var     Rx2 : integer;

{Declaration (Functions and Procedures)}
// Construct the GET String for the Web Script, call it and return the output
PROCEDURE update(status : String); forward;

BEGIN
    // Message to display in twitter
    statusmessage :=  '#Nowplaying ' + Song['artist'] + ' - ' + Song['title'] + ' @ ' + $FUNCTION_OUTPUT_VARIABLE + ' #' + Song['genre'];
    update(statusmessage);
  END;
END;

在上面 $FUNCTION_OUTPUT_VARIABLE 的位置，我需要包含随机 URL。如何调用该函数，然后在代码的每次传递中插入输出？

非常感谢！

编辑：

这是我使用上述功能的解决方案。

{Declaration (Variables)}

var     Rx2 : integer;

FUNCTION randurl : String; forward;

  BEGIN
    // Message to display in twitter
    statusmessage :=  '#Nowplaying ' + Song['artist'] + ' - ' + Song['title'] + ' @ ' + randurl + ' #' + Song['genre'];
    update(statusmessage);
  END;
END;

Answer 1

我不知道语言 PAL，以下是它在 Delphi 中如何工作的两种变体：

第一的：

var
  tmp: String;
begin
    tmp := randurl;
    statusmessage := '#Nowplaying ' + Song['artist'] + ' - ' + Song['title'] + 
      ' @ ' + tmp + ' #' + Song['genre'];

    update(statusmessage);
  end;
end;

第二：

begin
    statusmessage := '#Nowplaying ' + Song['artist'] + ' - ' + Song['title'] + 
      ' @ ' + randurl + ' #' + Song['genre'];

    update(statusmessage);
  end;
end;