delphi的字元擷取函式leftstr, midstr, rightstr拆分字串
這幾個函式都包含在strutils中，所以需要uses strutils;
假設字串是 dstr := 』delphi is the best』, 那麼
leftstr(dstr, 5) := 』delph』
midstr(dstr, 6, 7) := 』i is th』
rightstr(dstr, 6) := 』e best』
~~~~~~~~~~~~~~~~~~~~~~~~~
function rightstr
(const str: string; size: word): string;
begin
if size > length(str) then size := length(str) ;
rightstr := copy(str, length(str)-size+1, size)
end;
function midstr
(const str: string; from, size: word): string;
begin
midstr := copy(str, from, size)
end;
function leftstr
(const str: string; size: word): string;
begin
leftstr := copy(str, 1, size)
end;
這幾個函式經常結合pos, length, copy使用
拆分字串的函式 [2005-12-13]
delphi中沒有提供此類函式，從大富翁找了乙個
function split(src,dec : string):tstringlist;
vari : integer;
str : string;
begin
result := tstringlist.create;
repeat
i := pos(dec,src);
str := copy(src,1,i-1);
if (str='') and (i>0) then
begin
delete(src,1,length(dec));
continue;
end;
if i>0 then
begin
result.add(str);
delete(src,1,i+length(dec)-1);
end;
until i<=0;
if src<>'' then
result.add(src);
end;
procedure tform1.button1click(sender: tobject);
varss : tstringlist;
str,dec : string;
begin
str := '1111||2222||||3333|||4444||';
dec := '||';
ss := split(str,dec);
memo1.lines.addstrings(ss);
ss.free;
end;
Delphi中的字串
delphi中的字串 一 各種字串 字串是object pascal所有資料型別中最有用的型別。許多函式以字串為傳遞引數。由於在delphi中字串的定義和使用有各種方式，包括pascal中典型的字串 string delphi支援的長字串 ansistring 類似於c語言的字元陣列 array o...
Oracle拆分字串函式
原文中 有個錯誤 v start v length 1 雖然設定下次查詢起點為字串長度 1，但下次v index還是0，程式不會退回。程式沒有退出條件，故本句應改出使程式退出。exit 還有，原文中未檢測傳入的字串引數為null或為空的情況 此時返回的v index為空 下面改正了，見紅色字型部分。...
mysql拆分字串函式
業務需求 拆分字串，然後將數字轉換成中文描述，返回成以,分割的中文描述 修改結束符，防止在mysql命令列中預設分號直接執行 delimiter 建立乙個計算拆分後字串的個數函式 drop function if exists calc length create function calc len...