小编Alb*_*ssi的帖子

这是选择框的HTML代码:

<select>
 <option onclick="bg('1.png');">Skin 1</option>
 <option onclick="bg('2.png');">Skin 2</option>
</select>

在这里你看到了这个功能:

function bg(num) {
 document.body.style.backgroundImage="url('http://mk7vrlist.altervista.org/backgrounds/' + num + ')";
}

Skin 1例如,当选择该选项时,我想要更改页面的背景.但是当我点击它时,任何事情都会发生.任何的想法？

正确的图片链接是:' http://mk7vrlist.altervista.org/backgrounds/1.png '

我试图以这种方式从服务器下载文件:

var MeS:TMemoryStream;
begin
 Mes:=TMemoryStream.Create;
 IdFTP1.Connect;
 Mes.Position:=0;
  try
   IdFTP1.Get(Mes, 'dolcestilnovo.txt', True, False);
  finally
   MeS.Free;
   IdFTP1.Disconnect;
  end;
 Memo5.Lines.LoadFromStream(Mes);
end;

我必须显示dolcestilnovo.txtMemo5内部的内容,但我在IdFTP1.Get();方法上有错误.

错误显示"没有可以使用这些参数调用'Get'的重载版本".我能做什么？

我想使用MemoryStream自从我在Android设备上下载它.

我是Android开发的新手,我还在阅读文档.顺便说一下,当我点击一个按钮时,我正在尝试添加一个事件.这是代码:

<Button
  android:id="@+id/button1"
  android:layout_width="wrap_content"
  android:layout_height="wrap_content"
  android:layout_alignLeft="@+id/editText1"
  android:layout_below="@+id/editText1"
  android:layout_marginTop="24dp"
  android:text="Execute"
  android:onClick="onClickRadGard" />

我以这种方式声明onClickRadGrad:

public class MainActivity extends ActionBarActivity {

    final Button buttonx = (Button) findViewById(R.id.button1);

    buttonx.setOnClickListener(new OnClickListener() {
        public void onClick(View v) {
            // Perform action on clicks

        }
    });

    @Override
    protected void onCreate(Bundle savedInstanceState) {
            super.onCreate(savedInstanceState);
            setContentView(R.layout.activity_main);
    }

我不知道问题在哪里因为Eclipse告诉我这个:

你有什么建议吗？你可以在这里找到完整的代码:链接.

在我的程序中,我实际上使用此代码:

if IdFTP1.Connect = True then
 begin
  //makes some stuff
 end
else
 begin
  ShowMessage('you got the move like jagger.');
 end;

如果我没有连接,我会看到一个错误

套接字错误#11001

主机未找到

为了避免这种情况,我认为我可以使用您在上面看到的代码,但我在使用时遇到错误IdFTP1.Connect = True.

我能做什么？

我的表单中有很多标签,我必须将颜色更改为所有标签,所以我想使用for循环+ FindComponent方法.

procedure TForm1.RadioButton1Click(Sender: TObject);
var i:shortint;
begin
for i:=16 to 27 do
  begin
   TLabel(FindComponent('Label'+IntToStr(i)).Font.Color:=clYellow);
  end;
 Label85.Font.Color:=clYellow;
 Label104.Font.Color:=clYellow;
end;

我正在使用拉撒路,我有这样的错误:identifier idents no member "Font".顺便说一句,你可以看到Label104.Font.Color:=clYellow;作品(例如).我该怎么解决这个问题？

我有一个程序解决方程式,有时解决方案,x1并且x2是具有大量十进制数的数字.例如,当? = 201(Δ=判别)时,平方根给出一个浮点数.

我需要一个很好的近似值,因为我还有一个将其转换为分数的函数.所以我想这样做:

 Result := FormatFloat('0.#####', StrToFloat(solx1)); 

这solx1是双倍的.这样,数字'456,9067896'变为'456,90679'.

我的问题是这样的:如果我以这种方式近似,那么如果我有的话,它的分数456,9067896是正确的(和相同的)456,90679？

我有"i"这是一个整数变量,我想做一个循环,将"i"从40000增加到90000,每次增加1000.每个结果都将出现在ComboBox中.

示例:40000 - 41000 - 42000 - 43000 - ... - 88000 - 89000 - 90000

我的代码如下:

var i:integer;
begin
 for i:= 40000 to 90000 do
  begin
   ComboBox1.AddItem(IntToStr(i), nil); //until here the code works
   Inc(i, 1000);                         
  end;

你有什么建议吗？

我在一个过程中使用此代码,我遇到了第一个if子句的麻烦:

procedure TForm1.Button1Click(Sender: TObject);
var i,indice,n,conto:integer;
    a:string;
begin
  indice:=1;
  conto:=0;

  Memo2.Lines.Add('<tr>');

  for i := 1 to 649 do
   begin
    if ((i <> 11) or (i mod 11 <> 0)) then
     begin
      proced4();
     end
    else
     begin
      Memo2.Lines.Add('</tr><tr>');
      proced5();
    end;
   end;
end;

我有一个for,从1到649.当索引是11的倍数时,11, 22, 33, 44...我必须调用

Memo2.Lines.Add('</tr><tr>');
proced5();

使用我编写的代码,只有当索引i为11时,代码才会调用proced5().但是,例如,当i为22或33时,它执行proced4()而不是proced5().

我怎样才能解决这个问题？