varasource:string;
astr:string;
acount,i:integer;
astrings:tstringlist;
begin
asource := 'abc|... def|#### ghi|"不會被分開|# 我我我"';
astrings := tstringlist.create;
tryacount := extractstrings(['|'], [' ', '#', '.'],pchar(asource), astrings);
for i := 0 to acount - 1 do
begin
write(astrings[i]);
writeln;
end;
finally
astrings.free;
end;
readln;
end.
結果：abc
defghi
"不會被分開|# 我我我"
WaitForSingleObject函式的使用
程式舉例 1 建立對話方塊應用程式，專案名稱為mytestthread 2 新增按鈕，命名為啟動和停止，在對話方塊中增加編輯框，id為idc time，3 增加成員變數，handle m hthread 2 此為執行緒的控制代碼 4 定義全域性變數，用來控制線程的執行與否 volatile bool...
cvCreateVideoWriter函式使用
cvcreatevideowriter函式使用 2011 11 04 15 47 例如，cv fourcc p i m 1 是mpeg 1 codec，cv fourcc m j p g 是motion jpeg codec cv fourcc m p 4 2 mpeg 4.2 codec cv f...
CentimetersToPoints函式出錯
在word開發中，碰到centimeterstopoints函式呼叫出錯，提示未指定的錯誤的問題。解決辦法為修改centimeterstopoint函式 匯入msword.olb後的centimeterstopoint函式如下 修改後的centimeterstopoint函式如下，紅色表示的部分為增...