将网页源下载到备忘录组件的最快方法是什么？我使用Indy和HttpCli组件.
问题是我有一个填充了100多个站点的列表框,我的程序将源代码下载到备忘录并解析该源文件的mp3文件.它类似于谷歌音乐搜索程序; 它使用Google查询来简化Google搜索.
我开始阅读导致我的问题的线程:我可以在具有解析功能的线程中创建一个IdHttp实例并告诉它解析列表框中的一半网站吗？
所以基本上当用户点击解析时,主线程应该这样做:
for i := 0 to listbox1.items.count div 2 do
get and parse
,另一个线程应该做:
for i := form1.listbox1.items.count div 2 to form1.listbox1.items.count - 1 do
get and parse.
,所以他们会form1.listbox2在同一时间添加解析的内容.或者在主线程中启动两个IdHttp实例可能更容易; 一个是上半部分,另一个是第二个？
为此:我应该使用Indy还是Synapse？
我有一个已填充的 ObjectList。然后对象的细节发生了变化。现在我需要释放 ObjectList，但当我这样做时，它也会释放列表中的对象。如何在不释放对象本身的情况下释放此列表？
示例代码：
{Gets starting cards and put them into the correct rows}
//***************************************************************************
procedure TFGame.GetStartingCards;
//***************************************************************************
const
ManaTypes : array [0..3] of string = ('Lava','Water','Dark','Nature');
var
i: integer;
z:integer;
Cards: TObjectList<Tcard>;
begin
Cards := TObjectList<TCard>.Create;
z:=0;
{add all tcards (Desgin ) to this list in order Lava,water,dark,nature }
cards.Add(cardLava1);
cards.Add(cardlava2);
cards.Add(cardlava3);
cards.Add(cardlava4);
cards.Add(cardwater1);
cards.Add(cardwater2);
cards.Add(cardwater3);
cards.Add(cardwater4);
cards.Add(carddark1);
cards.Add(carddark2);
cards.Add(carddark3);
cards.Add(carddark4);
cards.Add(cardnature1);
cards.Add(cardnature2);
cards.Add(cardnature3);
cards.Add(cardnature4);
//get data from DB
for i := 0 to Length(ManaTypes) - 1 do
begin …有没有在delphi内置函数来查找字符串是否包含子,但不是在结束了吗？
例如,假设我有这些字符串:
G15001, G15005, G15015, G14015, G14004, PLU15010, PLU14015
我想在字符串为G15001 G15005,G15015,PLU15010和搜索的子字符串为15时返回true,但在G14015或PLU14015时返回false,因为它们最后只有15.
我正在尝试制作一个简单的登录表单.登录成功后,Form2应显示并Form1应隐藏或关闭.但是我收到编译器错误"Missing operator or decmicon".
这是我的代码:
procedure TForm1.Button1Click(Sender: TObject);
begin
if(Key.Text = 'password') then
Form2.Show
Self.close //Same error with Self.Free or Self.Release
else
ShowMessage('Failed');
Exit;
end;
我究竟做错了什么？
<html >
<head>
<title>JavaScript Example</title>
<script type="text/javascript">
function greet {
var greet = document.getElementById("greeting");
greet.value="this is dynamic";
</script>
</head>
<body>
<p onmouseover="greet()"> Hello! Welcome to My Page </p>
</html>
这段代码有什么问题？
我有一台Trust GXT-25鼠标,它有4个按钮:左,右,后和下.
我只能左右抓.如何在Delphi XE3中检测剩余的2个以上事件？
while not eof(MyFile) do
begin
Readln(MyFile,sLine);
iCheck := pos('*',sLine);
if iCheck >= 0 then
K := K + 1;
else
K := 1;
sLine := sArrayParty[K];
end;
K是我的柜台.MyFile设置为文本文件.
我试图在while语句中运行if语句来检查是否有*一行读入sLine.如果是这样,我希望我的计数器递增,从而将以下文本放入数组的下一个索引.所以基本上我有一个文本文件,信息由*分隔符分隔,我希望每条信息都填充一个新的索引.但每当我把if语句放入时,delphi就会发挥作用.
delphi ×6
delphi-7 ×1
delphi-xe2 ×1
delphi-xe3 ×1
if-statement ×1
indy ×1
javascript ×1
mouseover ×1
while-loop ×1