51
นอกเรื่อง / ใครเคยเข้าไปใช้ Online Chat with staff บ้างครับ
« เมื่อ: พฤศจิกายน 18, 2009, 15:19:17 PM »
เมนูตามรูปเลยครับ
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
function substr(str:String;s_index:Integer;e_index:Integer):String;
begin
result:= Copy(str,s_index,e_index-s_index);
end;
function splitstr(str,split:String):String;
var i_start,i_end,index:Integer;
temp,return:String;
begin
i_start:=1;
i_end := Length(str);
return:='';
for index := 1 to i_end do
begin
temp:=substr(str,index,index+1);
if CompareText(temp,split)=0 then
begin
return := return +'"' + substr(str,i_start,index)+'",';
i_start := index +1;
end;
end;
return := return +'"' +substr(str,i_start,i_end+1)+'"';
Result:=return;
end;