Delphi的语法问题 - Delphi / 语言基础/算法/系统设计
例子程序见附件，用Delphi 7进行编译
问题代码为
Delphi(Pascal) code:
if Node.ChildNodes <> nil then
begin
for i := 0 to Node.ChildNodes.Count - 1 do
begin
cNode := Node.ChildNodes.Get(i);
shapetype := cNode.NodeName;
if (shapeType = 'line') then
begin
shape := TLine.Create;
shape.ShapeType := shapetype;
shape.Name := cNode.AttributeNodes.Nodes['name'].NodeValue;
TLine(shape).X1 := cNode.AttributeNodes.Nodes['x1'].NodeValue;
TLine(shape).Y1 := cNode.AttributeNodes.Nodes['y1'].NodeValue;
TLine(shape).X2 := cNode.AttributeNodes.Nodes['x2'].NodeValue;
TLine(shape).Y2 := cNode.AttributeNodes.Nodes['y2'].NodeValue;
try
TLine(shape).Color := StringToColor(cNode.AttributeNodes.Nodes['color'].NodeValue);
except
TLine(shape).Color := ClBlue;
end;
end
else if (shapeType = 'rectangle') then
begin
shape := TRectangle.Create;
shape.ShapeType := shapetype;
shape.Name := cNode.AttributeNodes.Nodes['name'].NodeValue;
TRectangle(shape).X1 := cNode.AttributeNodes.Nodes['x1'].NodeValue;
TRectangle(shape).Y1 := cNode.AttributeNodes.Nodes['y1'].NodeValue;
TRectangle(shape).X2 := cNode.AttributeNodes.Nodes['x2'].NodeValue;
相关问答：
一直想使用dll，但delphi的dll子窗体经常有各种问题，比如主窗口与dll子窗口的焦点问题，子窗口中控件的tab键、热键、enter键等的问题，子窗口退出的问题、平面按钮问题等等，网站上进行了搜索，没有比较完美的解决� ......
不好意思，You are fooled！
哈哈，愚人节快乐！我要能全搞到，我就去国家安全局了！
呵，你还真像安全局的
b4
哈哈！
真好
b4
我倒
哈哈！
今天一定要敲倒一個火星的。
这里有很 ......
谁能给我个简单的例子
delphi接受UDP数据包的 要接收数组的
最好是用 IdTCPserver1的
最好还有发送的部分
本人菜鸟，谢谢各位了！！
楼上给的是TCP的吧 我要UDP的
谢谢！！
引用
最� ......
主窗体:
Delphi(Pascal) code:
procedure TfrmMain.btnResumeClick(Sender: TObject);
begin
myThread := TClientThread.Create(LeftPart(cbbServer.Text, ':'), StrToInt(RightPart(cbbServer.Text, ':')) ......
