标签: delphi-7

我想检查多个备忘录中的特定字符串,如果所有字符串都检出然后运行一个过程,但在我的代码中,有时程序运行,有时它不运行,有时它只在少数人签出时运行.

这是我的代码:

procedure TForm1.Timer14Timer(Sender: TObject);
begin
  if (pos('ActiveTunnel',memo10.Text)<>0) or (pos('https://ipfounder.net/?sponsor',memo10.text)<>0)
    and (pos('ActiveTunnel',memo9.Text)<>0) or (pos('https://ipfounder.net/?sponsor',memo9.text)<>0)
    and (pos('ActiveTunnel',memo8.Text)<>0) or (pos('https://ipfounder.net/?sponsor',memo8.text)<>0)
    and (pos('ActiveTunnel',memo7.Text)<>0) or (pos('https://ipfounder.net/?sponsor',memo7.text)<>0)
    and (pos('ActiveTunnel',memo6.Text)<>0) or (pos('https://ipfounder.net/?sponsor',memo6.text)<>0)
    and (pos('ActiveTunnel',memo5.Text)<>0) or (pos('https://ipfounder.net/?sponsor',memo5.text)<>0)
    and (pos('ActiveTunnel',memo4.Text)<>0) or (pos('https://ipfounder.net/?sponsor',memo4.text)<>0)
    and (pos('ActiveTunnel',memo3.Text)<>0) or (pos('https://ipfounder.net/?sponsor',memo3.text)<>0)
    and (pos('ActiveTunnel',memo2.Text)<>0) or (pos('https://ipfounder.net/?sponsor',memo2.text)<>0)
    and (pos('ActiveTunnel',memo1.Text)<>0) or (pos('https://ipfounder.net/?sponsor',memo1.text)<>0)
  then
  begin
    if Checkbox1.Checked = true then
    begin
      starttun;
      sleep(3000);
      routesaddlast;
    end;
  end;
end;

想法

我和一个朋友想和另一个朋友开个玩笑,然后制作一个delphi应用程序,它会拍摄我们朋友的屏幕截图然后发送到我的电脑.

问题

问题是我和我的朋友不知道如何将图像发送到我的电脑.知道怎么样？

我试过GolezTrol所说的

这是代码(从第27行开始)

 procedure TForm1.Button1Click(Sender: TObject);
 var
   Params:  TIMultipartFormDataStream;
   Response1: TStringStream;
 begin
  try
    Params := TIMultipartFormDataStream.create;
    Response1 := TStringStream.Create;
    try
      Params.AddFile('file', 'C:\temp\YourTempImageName.jpg', 'image/jpg');
      IdHTTP1.Post('http://localhost/uploadimage.php', Params, Response1);
    finally
      Params.Free;
      Response1.Free;
    end;
end;

(我正忙着努力让它发挥作用.)

额外信息 重新考虑之后,我再也看不到有趣的一面了.顺便说一下,我不打算把我的朋友身份搞得一团糟.在告诉他我们想做什么后,他向我们提出了尝试(他打赌我们做不到).

如果在Google while和repeat..until循环之间存在重大差异,我会在Google上查看,但我没有找到任何有用或我正在寻找的东西.

我注意到while循环使我的程序没有响应,并且repeat工作效果比while.是否有任何具体原因,或者是否应该在不同情况下相互使用？

这是while循环中的代码:

var
  m,val : Integer;
  i,k   : Real;
begin
  val := StrToInt(edtShot.Text);
  i := sqr(k);
  k := sqrt(i+val);
  m := 0;

    while i <= 0 and k <= 10 do
      begin
        inc(m);
      end;
end;

这是一个repeat循环:

var
  m,val : Integer;
  i,k   : Real;
begin
  val := StrToInt(edtShot.Text);
  i := sqr(k);
  k := sqrt(i+val);
  m := 0;
    repeat
      inc(m);
    until i > 0 and k > …

我创建简单的delphi程序，
当进行调试时，我使用MTable，这个错误出现在我面前
，并标记为m_table

[DCC 错误] Data.pas(7): F1026 找不到文件: 'Ucommon.dcu'

我只是想知道是否可以使用borland delphi 7 IDE编译Android应用程序,我知道可以使用lazarus做到这一点,但有没有其他方法可以做到这一点,因为我现在无法下载lazarus ..请帮助

所以我有可能包含不同章程的数据列表:

1dAAbt54
agFlE9dA
1295RTdd

第一行数据包含:1d,AA,bt,54.我需要的只是给出给定索引数据的函数.示例:索引6的数据为Fl(行-2,行中的索引为2).每行长度为8,数据长度为2;

我怎样才能在Delphi中实现这样的功能？

结果函数应该是这样的:

procedure (DataList: TStringList; DataIndex: Integer; var LineIndex: Integer; var PosInLine: Integer);
begin
//do the algorithm    
end;

对不起,我的英语不好...

http://forums.alliedmods.net/showthread.php?t=64767

源代码就像缺少了一些我找不到的东西,比如说TBX和其他一些东西

我真的不懂语言,但我希望能用delphi 2009/2010.net进行编译,然后看看它的移植IL.(对C#我猜)

这背后的原因是因为pawnstudio很快乐但是程序(布局,语法高亮,intellisense(clamsense)与包含文件等功能的内容相互作用的事实)非常容易使用.

有人可以帮忙吗？

procedure TMainWin.AgeEBKeyPress(Sender: TObject; var Key: Char);
procedure ProcessInput(Sender:Tobject);
  var age : byte;
begin
  Age := StrToInt(AgeEB.Text);
  Age := Age+2;
  AnsLbl.visible := True   //it's here, where there is a mistake
  AnsLbl.Caption := 'Bad luck, I"m' + IntTostr(Age) + '-Years old'
  if not (Key in ['0'..'9' , chr(vk_return), chr(vk_back)]) then begin
    key := #0;
    exit

  end

这是代码,有一些问题,但是