请教类型不匹配的问题~~~~~~~~(100分)

编译时总是提示我incompatible types:'tdisplaystyle' and 'tdyxxorder'
frmHouseTable.HouseTable1.InitHouseInfo(txtZCS.Value,editDyxx.Text,editTSxx.Text,
txtDXCS.Value,TDYXXOrder(txtDyxx.Itemindex),TDYXXOrder(TxyFJXX.ItemIndex),TDisplayStyle(txtCXX.ItemIndex));
我追踪到inithouseinfo里面修改的代码如下：
procedure THouseTable.InitHouseInfo(FloorValue:integer;DYXXValue,TSXXValue:string;
UnderFloorValue:integer=0;DYOrder:TDYXXOrder=doLeftToRight;
FloorDisp:TDisplayStyle=dsHigh_Low);
begin
begin
ClearSelected;
end;
begin
if InitFloors(floorvalue,TSXXValue,UnderFloorValue) then
end;
end;
请问那里出错了么？

问题太笼统了，如果只是想在最后两位前插入一个点，那么用insert函数
var s:= '12345';

insert(s,'.',length(s)-2);

同意楼上所说。楼主能具体点吗 ？

有一个收费的票据
需要转换成为大写的
应该取的数值是123.45
可是我取过来是12345
所以来请教怎么转换。。
谢谢

自己已经解决
谢谢大家的帮助。

procedure TForm1.Button1Click(Sender: TObject);
var
Str:String;
begin
Str:=Copy(Edit1.Text,1,Length(Edit1.Text)-2);
Str:=Str +'.'+ Copy(Edit1.Text,Length(Edit1.Text)-1,2);
ShowMessage(Str);
end;


技术交流QQ：136293586

>>应该取的数值是123.45
>>可是我取过来是12345

那楼主怎么就知道不是1234.5呢？