delphi中檔案以及執行緒操作基礎

2021-07-04 22:10:42 字數 1139 閱讀 6406

這週寫的最後的就是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...