常忘記，在此做筆記。
這幾個函式都包含在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字串操作集 1.copy 字串的複製操作，有3個引數 copy 源資料，複製起始位置 含 複製長度 2.leftstr rightstr 所在單元 strutils 功能說明 返回字串左 右 邊指定個數的新字元 串 該函式有兩個引數。第乙個引數為完整的字串，第二個引數為指定個數。left...
DELPHI字串 陣列操作函式
1.copy 功能說明 該函式用於從字串中複製指定範圍中的字元。該函式有3個引數。第乙個引數是資料來源 即被複製的字串 第二個引數是從字串某一處開始複製，第三個引數是要複製字串的長度 即個數 最後函式返回乙個新的字串 即是我們指定要複製的字串內容 參考例項 var s string mystr st...
DELPHI字串 陣列操作函式
對字串及陣列的操作，是每個程式設計師必須要掌握的。熟練的使用delphi的這些函式，在程式設計時能更加得心應手。1.copy 功能說明 該函式用於從字串中複製指定範圍中的字元。該函式有3個引數。第乙個引數是資料來源 即被複製的字串 第二個引數是從字串某一處開始複製，第三個引數是要複製字串的長度 即個...