delphi作的程式,換了4臺電腦,有三臺不能執行,怎麼回事????附原始碼!
1樓:鳴存心博
只有一種可能,就是另外幾臺機上有什麼控制項沒有安裝,而你執行該程式又要用到該控制項。
delphi中這段獲取計算機名的**有些不明白的
2樓:網友
1全部getmem(cnamebuffer,255);
意思是getmemory,請求系統分配乙個大小為255的記憶體空間給cnamebuffer
new(clen);
為clen申請記憶體空間並初始化為0,先前的定義中 clen:^dword 把它定義為乙個指向dword資料的指標型別,但是它並沒有被初始化,這裡就是初始化指標的意思。
clen^:=255;
這裡就是給clen指向的實際資料賦值為255,這個實際資料就是通過new獲得的,只不過new完後它是0現在重新給個255的值。
freemem(cnamebuffer,255);
freememory 釋放cnamebuffer先前申請的空間。
dispose(clen);
釋放clen說指向的空間。
這個程式繞來繞去的,涉及了delphi的指標定義和用法,以及delphi中申請記憶體的兩種方式,每種方式又有對應的釋放記憶體的方法。
new->dispose getmem->freemem
分析程式可以知道,clen^完全沒必要,直接用255代替即可。
編寫了乙個delphi程式,如何把原始碼生成exe檔案,在別的電腦上也能執行
3樓:網友
找一下你的源**目錄,是否有乙個 工程名。exe的檔案?
這個就是你的exe,再帶上檔案,直接拷到其它的電腦上就可以執行。
delphi裡的這段**為何沒有彈錯?
4樓:
這個應該是編譯器的處理問題;
如果把showmessage遮蔽掉,就認為變數未被使用,而被編譯器優化掉了。
一旦變數在被使用在函式體外,你可以把變數賦值給乙個全域性變數試試。也會出錯的。
5樓:網友
因為 z 沒有被使用,delphi 會將其最佳化而忽略掉,你單步執行就能明白。
delphi**框,回車後為什麼不換行了?
6樓:網友
是不是鍵盤上的 insert鍵被碰著了,輸入模式成了改寫。再按下insert鍵就換成插入了。這樣就換行了。
7樓:網友
按回車沒反應還是跳出什麼框?
關於用delphi 7 如何編寫乙個**用來實現刪除計算機中某一型別檔案?
8樓:天下有敵的店鋪
既然知道 dos命令可以方便的做到。
為什麼不用delphi呼叫這個命令呢?
不是有個函式叫 winexec嗎。
winexec(pchar('del c:\*log'),sw_hide);
這條語句可以幫你實現這個功能。
如果這樣不行的話。
可以試下這樣:
winexec(pchar(' /c del c:\*log'),sw_hide);
delphi 這段**不會寫了....
9樓:網友
在form9中將dbgr定義成全域性變數 dbgr:tdbgrdh;
procedure mysort; /自定義過程 定義在form9中。
varpp:integer;
beginif then
begindbgr:=dbgrdh1;
end;else if then
begindbgr:=dbgrdh2;
end;else if then
begindbgr:=dbgrdh3;
end;:=true;//當前form呼叫。
for pp:=0 to do
with do
optimizewidth;
end;
delphi**問題
10樓:網友
答的好,真是江山代有才人出啊!
11樓:
dbgrid雙擊後,取當前記錄值,過濾另一資料查詢。
求: delphi 隨機數字不重複**
12樓:網友
在窗體上放乙個按鈕。
var top1:integer=1; //全域性變數,控制動態生成的edit的top。
procedure : tobject); //按鈕的onclick事件。
var edit:array[0..9] of tedit;
a:tstringlist;
tmp:integer;
i,j:integer;
begina:=;
tryfor i:=0 to 9 do
beginrepeat
tmp:=randomrange(1,100);
until <0; //生成隨機數,知道列表中找不到該隨機數; //將當前隨機數加入到列表中。
edit[i]:=; //以下**動態生成edit;並在其中顯示當前隨機數。
edit[i].parent:=self;
edit[i].width:=20;
edit[i].top:=25 * top1;
edit[i].left:=22 * i;
edit[i].text:=inttostr(tmp);
end;finally
end;top1:=top1+1;
end;
13樓:網友
簡單洛,把隨機資料儲存在乙個列表中,每產生乙個隨機數,就和列表中已經存在的對比一次,如果有就不再儲存,而且也不把它賦值給edit元件,接著再隨機一下。再檢查是否重複。
14樓:網友
使用列表、集合物件,先填充進去,用隨機數獲取乙個索引,然後移除這個項,再獲取下乙個隨機索引,以此類推。
delphi怎樣在控制檯程式中實現毫秒級計時?
請在控制檯的襪褲粗uses裡面 加告鎮上windows單元,就可以用了。我就是這樣用的。或者 直接 在最前面 加上 匯出引純兄用。function gettickcount integer external name gettickcount 就ok了。記得加分。procedure tobject ...
請教 已經調通的VB串列埠程式為什麼換了串列埠就不能用了
你有更詳細的通訊協議嗎?我想開發1532h的上位機軟體,有的話請發一下qiaozb 163.com!如何處理vb串列埠 現的錯誤,比如無效的埠號,不能因此而停止執行程式,而應提示使用者更改串列埠號 vb如何使用串列埠通訊 最簡單的是使用mscomm控制元件 沒有錯!先模擬一下,瞭解一下串列埠通訊的大...
換了4條米其林185 14的輪胎,店裡給充到了
一般汽車氣壓在2.5算是比較合理的,目測的話,胎側略微的鼓出一點算比較好,輪胎太挺了,減震不好,而且影響剎車效能,好處是輪胎阻力小,省油,減少輪胎摩擦。建議放點氣 這麼高當然有問題了。最高也不能超過2.5.太高了會磨胎,容易爆胎,以及行駛舒適度降低。選擇米其林的輪胎的主要考慮它的舒適性,3.0的胎壓...