這週寫的最後的就是delphi了,簡直沒把我坑死。想找個對列容器,上網查老半天,費老鼻子勁了。
想往tobjectlist中新增物件,怎麼改怎麼報錯,最好只好在tlist中新增指標,然後強制轉換。怎麼
往tobjectlist中新增資料我現在還沒解決,所以這不是重點。
今天的主要說說delphi中的執行緒和寫檔案。直接來點實的:
1、tobjectlist的單元在contnrs;
2、執行緒定義:
tsimulatorthread = class(tthread)
private
myclass: class;
protected
procedure execute; override;
public
constructor create(myclass :class);
執行緒實現:
procedure tsimulatorthread.execute;
begin
while not terminated do
begin
sleep(1000);
dosomething;
end;
end;
執行緒呼叫:
mysimulatorthread := tsimulatorthread.create(true);
mysimulatorthread.resume;//開啟執行緒
mysimulatorthread.suspend;//執行緒掛起
mysimulatorthread.destroy;//執行緒銷毀
3、檔案寫
flogfile:textfile
assignfile(flogfile,flogfilename);
if not fileexists(flogfilename) then
rewrite(flogfile);//重寫檔案
else
之後就可以往檔案中寫東西了。
如:writeln(flogfile,smsg);//smsg即為要寫的內容
4、delphi中很容易就使用了全域性變數。在implementation之上定義的全是全域性變數,這點要牢記,很方便。
至此,打完收工。
Delphi 中檔案的操作FileOpen
var ifilehandle integer ifilelength integer ibytesread,i integer buffer char strpath string begin 取得檔案路徑 讀取檔案內容 ifilehandle fileopen strpath,fmopenrea...
Python中檔案以及資料夾的操作
檔案的操作 import os 操作檔案和資料夾的模組 import shutil 檔案操作的高階模組 1.建立乙個空的資料夾 file open youliang.txt w encoding utf 8 file.close 2.對檔案進行重新命名操作 os.rename youliang.tx...
Python中檔案以及資料夾的操作
檔案的操作 import os 操作檔案和資料夾的模組 import shutil 檔案操作的高階模組 1.建立乙個空的資料夾 file open youliang.txt w encoding utf 8 file.close 2.對檔案進行重新命名操作 os.rename youliang.tx...