下面的**失敗了，但同等的delphi和vb是成功的。先放在這，以後解決
bcb**如下：
cmapxlayerinfodisp layerinfo;
cmapxfieldsdisp fields;
layerinfo.bind(stringtoolestr("mapx.layerinfo.5"));
if(!layerinfo.isbound())
fields.bind(stringtoolestr("mapx.fields.5"));
if(!fields.isbound())
fields.addstringfield(variant("id"), variant(12), emptyparam);
fields.addstringfield(variant("name"), variant(50), emptyparam);
fields.addnumericfield(variant("deptch"), variant(12), variant(2), emptyparam);
fields.addintegerfield(variant("length"), emptyparam);
layerinfo.type = milayerinfotypenewtable;
layerinfo.addparameter(widestring("filespec"), variant(widestring("c://test.tab")));
layerinfo.addparameter(widestring("name"), variant(widestring("sds")));
layerinfo.addparameter(widestring("fields"), variant((cmapxfields *)fields));
cmapxlayer *newlayer = m_map->layers->add(variant((cmapxlayerinfo *)layerinfo), emptyparam);
if(newlayer == null)
dephi**如下(能正常執行)
lyr:cmapxlayer;
layerinfo:cmapxlayerinfo;
flds:cmapxfields;
filespec: string;
begin
layerinfo :=colayerinfo.create();
flds := cofields.create();
flds.addstringfield('id', 12, emptyparam);
flds.addstringfield( 'name', 50, emptyparam);
flds.addnumericfield( 'deptch', 12, 2, emptyparam);
flds.addintegerfield( 'length', emptyparam);
layerinfo.type_ := milayerinfotypenewtable;
layerinfo.addparameter( 'filespec', 'c:/test.tab');
layerinfo.addparameter( 'name', 'hello');
layerinfo.addparameter( 'fields', flds);
lyr := map1.layers.add(layerinfo, emptyparam);
if(lyr = nil) then
begin
showmessage('錯誤');
end;
用錢能解決的問題，我都解決不了
作為乙個窮過的人，如果讓你用一句話描述一下 窮是怎麼樣的體驗 你會說什麼呢？先來看看，們都是怎麼說的 凡是用錢能解決的問題，我現在都解決不了 你們經過草坪的時候小心點兒成嗎？不要弄髒了我要吃的！服務員 您好，您總共消費xx元，請問現金還是刷卡？我 我可以刷碗嗎？吃麻辣燙都得掂一掂土豆沉不沉 雙十一剁...
裸辭跳槽？都是風險！根本解決不了問題！
裸辭可恥嗎？裸辭是一種逃避嗎？裸辭是對自己不負責任嗎？裸辭一兩次可能是真的熬不下去了，但裸辭心態成了一種癮，如果不是你在職場上成了精，那就是逃避了，不但可恥，而且沒用，根本解決不了問題。如何權衡該不該裸辭？是不是這個槽非跳不可？該不該轉行，換乙份工作？看了下面這些前程無憂用汗水和淚水換來的跳槽，你就...
靠跳槽也解決不了的問題，你竟然還堅持？
如果在連續性跳槽行為後發現，一直以來困擾你自己的事情並沒有得到解決，反而愈演愈烈 比如，這一屆的同事比上一屆更加刻薄和難以相處，這一行的單子比上乙個行業的單子更難籤，更可悲的是，薪資還越跳越少。同樣都是青年人，別人事業蒸蒸日上，而你已然進入遲暮之年。那麼此時，勸你停止投遞簡歷，撲滅心中那股熊熊燃燒的...