将函数结果添加到字符串变量 - SAM广播器

时间:2013-06-20 09:41:57

标签: delphi function variables pascal

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

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;

1 个答案:

答案 0 :(得分:2)

我不知道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;