dephi代码应用

Question

我学的是dephi，不是很清楚多个代码控制怎么写，望好心人帮忙。谢谢啊。

Answer 1

begin
  //do you want to do!
end;

Answer 2

呵呵……
不好意思是我没说清楚。像下面的代码应该怎么弄呢？它老出错我查不出。还有我添加了个timer,不知道该怎么去控制它啊。望有仙人指路啊。可以不加数据库，只需有范围的选择就行。大伙帮帮忙啦。谢谢了。
unit Unit1;interfaceuses
  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 3

还是不大明白你的意思，你写到ontimer里试试呀，不知道你要干什么？

Answer 4

我是按delphi格式自己写的。要是会的话就不用这么麻烦了呢。现在在学习它呢。错误肯定不少。望大家帮帮指点了。谢了哦。

Answer 5

你的是C++BUILDER的代码，然后向用DELPHI写？简单来说赋值符=改为:=,程序块{}改为begin end; 类操作符只有.没有->,找本简单的书看下语法那章
procedure TForm1.openClick(Sender: TObject); 
begin 
ADOQuery1.open; 
ADOQuery1.first; 
while(not stop) do
begin
if (ADOQuery1.eof) then 
  ADOQuery1.First; 
else 
  begin 
    edit1.text:=ADOQuery1.filedByName("id_CONE").Asstring; 
    application.processmessage(); 
    ADOQuery1.next; 
  end;  
end;