游戏开发帮帮吧

Question

像下面的代码应该怎么弄呢？它老出错我查不出。还有我添加了个timer,不知道该怎么去控制它啊。望有仙人指路啊。可以不加数据库，只需有范围的选择就行。大伙帮帮忙啦。谢谢了。 
unit Unit1; interface uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls; type 
  TForm1 = class(TForm) 
    Edit1: TEdit; 
    open: TButton; 
    stop: TButton; 
    procedure openClick(Sender: TObject); 
    procedure Edit1Change(Sender: TObject); 
    procedure Button2Click(Sender: TObject); 
  procedure Button2Click(Sender: TObject); 
    procedure Button2Click(Sender: TObject); 
    procedure Button2Click(Sender: TObject); 
    procedure Button2Click(Sender: TObject); 
    procedure Button2Click(Sender: TObject); 
    procedure stopClick(Sender: TObject); 
    procedure stopClick(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; var 
  Form1: TForm1; 
var 
  ADOQuery1; 
implementation {$R *.dfm} procedure TForm1.openClick(Sender: TObject); 
begin 
ADOQuery1->open(); 
ADOQuery1->first(); 
while(!stop) 
{ 
if (ADOQuery1->eof) 
  { 
    ADOQuery1->First(); 
  } 
  else 
  { 
  edit1->text=ADOQuery1->filedByName("id_CONE")->Asstring; 
  application->processmessage(); 
  ADOQuery1->next(); 
  } 
  } 
end; procedure TForm1.Edit1Change(Sender: TObject); 
begin 
Tstringlist *plist:new Tstring list(); 
void_fastcall Tform1::(Tobject *sender) 
{ 
stop=false; 
ADOQuery1->close(); 
ADOQuery1->SQL->clear(); 
ADOQuery1->SQL->add("select id_COODE from 手机号码 where flag='0'"); 
end; end.

Answer 1

呵呵，把c++ builder的代码粘贴到delphi里面了

Answer 2

“->”变“.”
“=”变“:=”
“{”变“begin”
“}”变“end”
if后加then

Answer 3

c++ builder 也有procedure
真牛！

Answer 4

一看代码 我就知道楼主从事什么行业！SP 一类的信息商搞些骗钱的小游戏，没啥意思！N年前，我就不干了。 太没道德的事情。什么中奖，都他妈的骗人玩意！

Answer 5

什么他妈的脑白金，脑黑金黄金酒，白银酒 喝不死人就是好酒！天天定时三遍广告，天天电视广告洗脑！国内就是SB太多，于是让这些无良的SB赚了钱！

Answer 6

我的天哪,不转换一下就直接粘贴到delphi了