2016-11-23 66 views
-2

我会开始这在什么我试图做的是转换阵列成dymanic阵列,将得到一个ListView站到位预设阵列麻烦定制阵列和选择

const 
    urls: array[0..1] of AnsiString = (// preset stream URLs 
    'http://www.radioparadise.com/m3u/mp3-128.m3u', 'http://www.radioparadise.com/m3u/mp3-32.m3u'); 

我有没有代码预先完成,所以没有代码显示或给我主要是要求如何做到或指出正确的方向的帮助。

+0

您发布的代码确实给*访问错误*,因为它甚至不会编译。它甚至不接近实际的代码。请[编辑]你的问题,并发布**你已经尝试过的**实际代码**,不适合你。 (我们不会每次询问你每次发布编辑以提供真实信息时,请阅读[问]和[mcve]。) –

+3

您发布的代码**不能**生成该消息,因为**它不会编译**。请[edit]发布**您的真实代码**,因为我已经要求您做。 **将编译的实际代码**,因为[mcve]的链接告诉您如何执行。不是你为这篇文章编写的代码,而是你编译和运行**的真实代码。 'urls:AnsiString =(Items.SubItems [i])的数组;''**是无效的Delphi代码,它不会编译**。 –

+0

这个>> urls:AnsiString数组,我认为你想要说这是一个局部变量,但位于你上面代码的错误位置。 – Saulo

回答

3
var 
    urls: array of string; 

... 
SetLength(urls, ListView.Items.Count); 
for i := 0 to Items.Count-1 do 
begin 
    // assuming the URL is in the first subitem 
    urls[i] := ListView.Items[i].SubItems[0]; 
end; 
... 

然后,您可以在需要时使用urls[index]

+6

尽管这个答案显然是正确的,但是在海报编辑问题之前发布它是一种遗憾。你已经取消了所有激励措施,并告诉他们即使他们不愿意合作并发布实际的问题代码,但他们可以继续在这里发布垃圾,并仍然让某人给他们提供解决方案。教新用户是一个糟糕的教训。 –

+0

感谢肯指出的错误,但有些时候,我不总是得到你的意思,当我发布我做的尝试,使其容易清除,因为我可以我不诚实地意味着发布垃圾,并愿意充分合作,但我有一个学习这样的打字和阅读障碍是不是我的强项,所以它可能缝隙就像我只是不合作,但它只是因为我不真正理解对不起agen男人和雷米感谢回复 –

+2

@Simon:我不明白你怎么不能了解我写的内容。我说*你发布的代码是无效的,所以它不会编译。如果它不能编译,则无法运行。如果它不能运行,它不会导致你说的错误。请修改您的帖子,以提供您正在使用的实际代码,这些代码将会运行并导致该错误*,或者无法学习残疾。不会运行的代码不会导致运行时异常。如果你需要帮助你的代码,**发布你真实的代码**,你还没有完成。 –