平台移植，求各位帮忙看看，帮我把下面的代码改称vc的格式，在下多谢了！！！

[wishczhe]

TKddRec和TtestRec为自定义结构体类型

procedure TForm1.Button5Click(Sender: TObject);
var
i,j,k,m,intisoland,intk,intRecCount:integer;
s,sNeighbors,sAntiNeighbors:TStringList; //s:所有记录的id号,sNeighbors:该点最邻近点集合，sAntiNeighbors:以该点为最邻近点集合
inttop,intvalue,intbuttom:real;
d,dis:real; //d:给定域值 dis:两条记录间的距离
dsthostcount,arrdsthostcount:TKddRec;
f:TextFile;
strText,strid,strText1,strIntrusion:String; //strText1:每个聚类中所含有的记录的id号
disd0,disd1,disd2:Real; //相同字段相减
onePoint:^TtestRec; //一条记录的五元集
recStack:TStack;
intID,intNeiID,intAntiNeiID,Index,intCount,intsum:Integer;
onerecord:array[0..1000]of TKddRec; //记录数组
testRecord:array[0..1000]of TtestRec; //每个记录的最近邻相关信息
begin
try
//取得所有记录的id号
s:=TStringList.Create;
d:=strtofloat(edit2.Text);
intisoland:=0;
adosel.Close;
adosel.SQL.Clear;
adosel.SQL.Text:='select id from '+Trim(edit1.Text);
adosel.Open;
intRecCount:=adosel.RecordCount;
for i:=0 to intRecCount-1 do
begin
testRecord[i].Dir:=adosel.Fields.Fields[0].AsInteger;
if i<>adosel.RecordCount-1 then
strid:=strid+adosel.Fields.Fields[0].AsString+','
else
strid:=strid+adosel.Fields.Fields[0].AsString;
adosel.Next;
end;
s.DelimitedText:=strid;
s.Delimiter:=',';
adosel.close;
adosel.SQL.Clear;
adosel.SQL.Text:='select * from '+Trim(edit1.Text);
adosel.Open;
adosel.First;
for i:=0 to adosel.RecordCount-1 do
begin
intvalue:=adosel.FieldByName('dst_host_count').AsFloat;
inttop:=abs(intvalue)+d; //最大值
intbuttom:=abs(intvalue)-d;//最小值
dsthostcount.rdid:=adosel.FieldByName('id').AsInteger; //0
dsthostcount.element_con[0]:=adosel.FieldByName('duration').AsFloat;
dsthostcount.element_con[1]:=adosel.FieldByName('count').AsFloat;
dsthostcount.element_con[2]:=adosel.FieldByName('srv_count').AsFloat;
dsthostcount.element_sym[0]:=adosel.FieldByName('land').AsInteger;
dsthostcount.element_sym[1]:=adosel.FieldByName('logged_in').AsInteger;
//dsthostcount.element_sym[2]:=adosel.FieldByName('root_shell').AsInteger;
dsthostcount.element_sym[3]:=adosel.FieldByName('is_host_login').AsInteger;
dsthostcount.element_sym[4]:=adosel.FieldByName('is_guest_login').AsInteger;
dsthostcount.ele_proto:=adosel.FieldByName('protocol_type').AsString;
dsthostcount.ele_serv:=adosel.FieldByName('service').AsString;
dsthostcount.ele_flag:=adosel.FieldByName('flag').AsString;
adoavg.Close;
adoavg.SQL.Clear;
adoavg.SQL.Text:='select * from '+Trim(edit1.Text)+' where dst_host_count>='''+floattostr(intbuttom)+''' and dst_host_count<='''+floattostr(abs(inttop))+'''';
//showmessage(adoavg.SQL.Text);
adoavg.Open;
adoavg.First;
for j:=0 to adoavg.RecordCount-1 do
begin
arrdsthostcount.rdid:=adoavg.FieldByName('id').AsInteger;
arrdsthostcount.element_con[0]:=adoavg.FieldByName('duration').AsFloat;
arrdsthostcount.element_con[1]:=adoavg.FieldByName('count').AsFloat;
arrdsthostcount.element_con[2]:=adoavg.FieldByName('srv_count').AsFloat;
arrdsthostcount.element_sym[0]:=adoavg.FieldByName('land').AsInteger;
arrdsthostcount.element_sym[1]:=adoavg.FieldByName('logged_in').AsInteger;
//arrdsthostcount.element_sym[2]:=adoavg.FieldByName('root_shell').AsInteger;
arrdsthostcount.element_sym[3]:=adoavg.FieldByName('is_host_login').AsInteger;
arrdsthostcount.element_sym[4]:=adoavg.FieldByName('is_guest_login').AsInteger;
arrdsthostcount.ele_proto:=adoavg.FieldByName('protocol_type').AsString;
arrdsthostcount.ele_serv:=adoavg.FieldByName('service').AsString;
arrdsthostcount.ele_flag:=adoavg.FieldByName('flag').AsString;
if arrdsthostcount.rdid<>dsthostcount.rdid then
begin
disd0:=abs(dsthostcount.element_con[0]-arrdsthostcount.element_con[0]);
disd1:=abs(dsthostcount.element_con[1]-arrdsthostcount.element_con[1]);
disd2:=abs(dsthostcount.element_con[2]-arrdsthostcount.element_con[2]);

if (disd0<=d) and (disd1<=d) and (disd2<=d) then
begin
//算距离
for k:=0 to 19 do
begin
dis:=dis+(dsthostcount.element_con[k]-arrdsthostcount.element_con[k])*(dsthostcount.element_con[k]-arrdsthostcount.element_con[k]);
end;
if arrdsthostcount.ele_proto<>dsthostcount.ele_proto then
dis:=dis+1/9;
if arrdsthostcount.ele_serv<>dsthostcount.ele_serv then
dis:=dis+(1/14)*(1/14);
if arrdsthostcount.ele_flag<>dsthostcount.ele_flag then
dis:=dis+1/9;
for k:=1 to 4 do
begin
if arrdsthostcount.element_sym[k]<>dsthostcount.element_sym[k] then
dis:=dis+1/4;
end;
dis:=Sqrt(dis);
//记录信息
if dis<=d then
begin
for m:=0 to adosel.RecordCount-1 do
begin
if testRecord[m].Dir=dsthostcount.rdid then
begin //判断是否为最短距离
if (testRecord[m].Distance>dis)or(testRecord[m].Distance=0) then
testRecord[m].Distance:=dis;
if testRecord[m].Neighbors<>'' then
testRecord[m].Neighbors:=testRecord[m].Neighbors+','+inttostr(arrdsthostcount.rdid)
else
testRecord[m].Neighbors:=inttostr(arrdsthostcount.rdid);
end;
if testRecord[m].Dir=arrdsthostcount.rdid then
begin
if testRecord[m].AntiNeighbors<>'' then
testRecord[m].AntiNeighbors:=testRecord[m].AntiNeighbors+','+inttostr(dsthostcount.rdid)
else
testRecord[m].AntiNeighbors:=inttostr(dsthostcount.rdid);
end;
end;
end;
end;
end;
adoavg.Next;
end;
adosel.Next;
end;
except
on E: Exception do showmessage(E.Message);
end;
end;

[dingpiao]

真长
begin =>{
end => }
:= => =
then 去掉
except ＝》catch(...)