delphi作的程式,換了4臺電腦,有三臺不能執行,怎麼回事 附原始碼 10

2025-03-31 03:35:22 字數 3161 閱讀 7734

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的胎壓...