unit unit1;
inte***ce
uses
windows, messages, sysutils, variants, classes, graphics, controls, forms,
dialogs, stdctrls;
type userarray=array of string;
type
tform1 = class(tform)
edit1: tedit;
button1: tbutton;
procedure button1click(sender: tobject);
private
function split(s: string; dot: char): userarray;
public
end;
varform1: tform1;
implementation
uses strutils;
function tform1.split(s:string;dot:char):userarray;
varstr:userarray;
i,j:integer;
begin
i:=1;
j:=0;
setlength(str, 255);
while pos(dot, s) > 0 do
begin
str[j]:=copy(s,i,pos(dot,s)-i);
i:=pos(dot,s)+1;
s[i-1] := chr(ord(dot)+1);
j:=j+1;
end;
str[j]:=copy(s,i,strlen(pchar(s))-i+1);
result:=str;
end;
procedure tform1.button1click(sender: tobject);
varur:userarray;
i:integer;
begin
ur:=split(edit1.text,';');
for i :=0 to 255 do
begin
if length(ur[i])=0 then exit;
showmessage(ur[i]);
end;
end;
end.
Delphi 字串擷取函式
如果要使用leftstr,rightstr,midstr必需引用系統單元strutils 宣告變數str string str helloworld 1,leftstr str,2 he 從str字串變數的最左邊 第一個字元包括第一個字元 開始擷取2個字元 2,rightstr str,2 ld 從...
字串拷貝函式s
說明 以下函式使用均需標頭檔案string.h.1.extern char strcpy char dest,char src 功能 把src所指由null結束的字串複製到dest所指的陣列中。說明 src和dest所指記憶體區域不可以重疊且dest必須有足夠的空間來容納src的字串。返回指向des...
DELPHI字串 陣列操作函式
1.copy 功能說明 該函式用於從字串中複製指定範圍中的字元。該函式有3個引數。第一個引數是資料來源 即被複制的字串 第二個引數是從字串某一處開始複製，第三個引數是要複製字串的長度 即個數 最後函式返回一個新的字串 即是我們指定要複製的字串內容 參考例項 var s string mystr st...
DELPHI字串 陣列操作函式
對字串及陣列的操作，是每個程式設計師必須要掌握的。熟練的使用delphi的這些函式，在程式設計時能更加得心應手。1.copy 功能說明 該函式用於從字串中複製指定範圍中的字元。該函式有3個引數。第一個引數是資料來源 即被複制的字串 第二個引數是從字串某一處開始複製，第三個引數是要複製字串的長度 即個...
Delphi 處理字串常用函式
pos a,b 該函式用於查詢a在b中第一次出現的位置 pos a xa city,xa city 返回則是2copy a,x,y 從a字串的x處開始,擷取y個字元的串返回.copy gk,nmlgbd 4,6 返回 nmlgbd delete a,x,y 從a中的x開始刪除，刪除y個字元 var ...