(1)你的程式碼中, 這裡會產生Memory leaks,
物件產生後, 沒有Free掉.

split_st := Tstringlist.create;
try
split_st.text := stringreplace(MargeString,',',#13,[rfReplaceAll]);
if split_st.count < 6 then exit; // 若不合法, 直接離開

(2)程式碼中, 沒有看到處理 {MARGEFIELD, 鄰別} 的動作?!

(3)新的問題描述有些怪怪的?鄰別 call 了兩次

新的問題如下:

{MARGEMDBFIELD,cl.mdb,master,戶號,
{MARGEMDBFIELD,cl.mdb,detail,個編,
{MARGEMDBFIELD,cl.mdb,linchef,鄰別,
{MARGEMDBFIELD,cl.mdb,linchef,鄰別, { MARGEFIELD 鄰別 },
個編},
個編},
戶號},
電話1}

以下提供個人的一些想法和程式流程, 供你參考...

[code delphi]
unit fMain;

interface

uses
Classes, Forms, StdCtrls, Mask, Controls;

type
TForm1 = class(TForm)
private
function Process(S: string): string;
function FunctionID(S: string): Integer;
function RemoveBraces(S: string): string;
function MARGEFIELD(P: TStringList): string;
function MARGEMDBFIELD(P: TStringList): string;
public
function Execute(S: string): string;
end;

var
Form1: TForm1;

implementation

uses SysUtils;

{$R *.dfm}

{ TForm1 }

function TForm1.Execute(S: string): string;
var
I: Integer;
Stack: TStringList;
begin
//(0)以TStringList來作為Stack,
//(1)先找到指令字串的起頭點 '{'
//(2)然後循序再找結尾點'}', 並送到 Process()去處理,
//(3)回傳值與Stack中pop出來的字串結合, 繼續(2)的動作
//(4)當Stack.Count = 0 時, 完成Execute()動作, 並傳回最後結果
Stack := TStringList.Create;
try
Result := '';
for I := 1 to Length(S) do
begin
if S[I] = '{' then
begin
Stack.Insert(0, Result);//PUSH
Result := S[I];
end
else begin
Result := Result S[I];
if S[I] = '}' then
begin
//完整指令字串
Result := Stack[0] Process(Result);
Stack.Delete(0);//POP
if Stack.Count = 0 then Break;
end;
end;
end;
finally
FreeAndNil(Stack);
end;
end;

function TForm1.RemoveBraces(S: string): string;
begin
S := Trim(S);
if S[1] = '{' then S := Copy(S,2,Length(S)-1);
if S[Length(S)] = '}' then S := Copy(S,1,Length(S)-1);
Result := S;
end;

function TForm1.FunctionID(S: string): Integer;
begin
Result := -1;
if S = 'MARGEFIELD' then Result := 0
else if S = 'MARGEMDBFIELD'then Result := 1;
end;

function TForm1.Process(S: string): string;
var
P: TStringList;//parameters
begin
Result := '';
P := TStringList.Create;
try
P.CommaText := RemoveBraces(S);
case FunctionID(P[0]) of
0: Result := MARGEFIELD(P);
1: Result := MARGEMDBFIELD(P);
end;
finally
FreeAndNil(P);
end;
end;

function TForm1.MARGEFIELD(P: TStringList): string;
begin
Result := '';
if (P.Count = 2) and (P[0] = 'MARGEFIELD') then
begin
//模擬取得鄰別欄位值, 實際情況可能是從資料庫取得吧?! ^_^
if P[1] = '鄰別' then Result := '09';
end;
end;

//{margeMdbfield,,,,,}
function TForm1.MARGEMDBFIELD(P: TStringList): string;
begin
Result := '';
if (P.Count = 6) and (P[0] = 'MARGEMDBFIELD') then
begin
//各傳入的參數值
// = P[1]
// = P[2]
// = P[3]
// = P[4]
// = P[5]
//在這裡從資料庫的資料表, 比對
//搜尋欄位的值, 若是等於, 則
//傳回欄位的值.
end;
end;

end.
[/code]

pceyes 尊榮會員 發表：70 回覆：657 積分：1140 註冊：2003-03-13 發送簡訊給我

#5 引用回覆 回覆 發表時間：2007-12-01 18:41:34 IP:122.127.xxx.xxx 訂閱 真不好意思, 誏您抓bug 您說得沒錯, memory 會出問題, 另外連問題也錯了 我只是要表現我的問題, 是要重複執行的行為 由於您的協助目前想的方法是先拆成以下陣列 {MARGEMDBFIELD,cl.mdb,master,戶號,X,電話1} 25234567 {MARGEMDBFIELD,cl.mdb,detail,個編,X,戶號} N1233211234567 {MARGEMDBFIELD,cl.mdb,linchef,鄰別,X,個編} L123459789 { MARGEFIELD 鄰別 } 16 然後再代入先前的 X 內 再以反迴圈取得值,再代回 X 您的程式寫得很棒, 我會仔細閱讀, 再次謝謝您! ------ 努力會更接近成功 編輯記錄 pceyes 重新編輯於 2008-12-22 16:38:52， 註解 無‧

pceyes 尊榮會員 發表：70 回覆：657 積分：1140 註冊：2003-03-13 發送簡訊給我

#6 引用回覆 回覆 發表時間：2007-12-02 23:21:29 IP:122.127.xxx.xxx 訂閱 程式改好了, 有始有終, 做個完整交代. [code delphi] // RPos(,,) -> position Value // is 0 return latest Position Value // If not found or Too Big Then Return -1 // So We Can Use RPos('{',Xstr,2)<>-1 // For Checking String Having Two Segement (Ex. {abc{1234}def}... ) function TForm1.Rpos(substr:widestring;str:widestring;num:integer):integer; var Num_st : Tstringlist; Pnum : integer; data_str ,head,tail: widestring; begin Num_st := Tstringlist.create; try data_str := str; while pos(substr,data_str)>0 do begin pnum := pos(substr,data_str); Num_st.Add(inttostr(Pnum)); head := copy(data_str,1,pnum-1); tail := copy(data_str,pnum 1,length(str)-length(head)-1); data_str :=head '龘' tail; end; if num=0 then begin // RAT result := strtoint(Num_st[Num_st.count-1]); end else begin // ? times Position if (Num_st.Count > 0)and(num <= Num_st.Count) then begin result := strtoint(Num_st[num-1]); end else begin // not found or Lower then Times result :=-1; end; end; finally Num_st.free; end; end; (*多重 funcode*) // {MARGEMDBFIELD,CL.MDB,MASTER,戶號,{MARGEMDBFIELD,CL.MDB,DETAIL,個編,{MARGEMDBFIELD,CL.MDB,LINCHIEF,鄰別,{MARGEFIELD 鄰別},個編},戶號},電話1} function Tform1.Mfuncode(str:widestring):string; var Xstr ,head,tail: widestring; Splite_st : Tstringlist; icnt : integer; RepValue : string; begin log_st.add('Mfuncode: ' Str); Splite_st := Tstringlist.create; try Xstr := trim(str); while pos('{',Xstr)>0 do begin Xstr := DelSegeMent(Xstr);(*刪除前後{}*) // 取字串前段 head := copy(Xstr,1,pos('{',Xstr)-1); delete(Xstr,1,pos('{',Xstr)-1); // 取字串尾段 if rpos('}',xstr,2)<>-1 then begin // 表示 兩層以上 // {MARGEMDBFIELD,cl.mdb,detail,個編,{MARGEMDBFIELD,cl.mdb,linchef,鄰別,{MARGEFIELD鄰別},個編},姓名} tail := trim(copy(Xstr,rpos('}',Xstr,0) 1,length(str)-length(head))); delete(Xstr,rpos('}',Xstr,0) 1,length(str)-length(head)); end else begin // 表示 兩層以內 // {MARGEMDBFIELD,cl.mdb,linchef,鄰別,{MARGEFIELD鄰別},中文鄰別} tail := trim(copy(Xstr,rpos('}',Xstr,0) 1,length(str)-length(head))); end; if head <> '' then begin Splite_st.add('{' head FinishCode tail '}'); end; end;(*while*) delete(Xstr,rpos('}',Xstr,0),length(str)-length(head)); Splite_st.add('{' Xstr '}'); (*反向置換值*) // 先處理 {MARGEFIELD鄰別} // 再處理 {MARGEMDBFIELD,cl.mdb,linchef,鄰別,,個編} for icnt := splite_st.count-1 downto 0 do begin // 有 才處理 if pos(FinishCode ,splite_st[icnt])>0 then begin splite_st[icnt] := stringreplace(splite_st[icnt],FinishCode,RepValue,[rfReplaceAll]); end; RepValue := funCode(splite_st[icnt]); end;(*for 反向置換值*) result := RepValue; finally freeandnil(splite_st); end; end;(*多重 funcode*) [/code] ------ 努力會更接近成功

系統時間：2024-04-29 13:37:36

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！

5151線上健康照護網 | 台灣西醫網 | 台灣中醫網 | 台灣牙科網 | 台灣照護網 | 趴趴狗旅遊網
大花蓮旅遊網 | 大花蓮民宿網 | 花蓮旅遊網 | 花蓮旅遊 | 花蓮旅遊 | 花蓮住宿
花蓮民宿網 | 花蓮旅遊 | 花蓮住宿 | 花蓮民宿 | 花蓮旅遊 | 花蓮民宿
花蓮住宿 | 大南投旅遊網 | 大南投民宿網 | 日月潭風景區 | 日月潭旅遊網 | 日月潭民宿網
日月潭住宿網 | 宜蘭旅遊網 | 宜蘭民宿網 | 宜蘭住宿網 | 宜蘭旅遊網 | 宜蘭民宿網
宜蘭住宿網 | 宜蘭旅遊網 | 宜蘭民宿網 | 宜蘭住宿網 | 台東旅遊網 | 台東民宿網
台東住宿網 | 台東旅遊網 | 台東民宿網 | 台東住宿網 | 台東旅遊 | 台東民宿
台東住宿 | 綠島旅遊網 | 綠島民宿網 | 綠島住宿網 | 綠島旅遊網 | 綠島民宿網
綠島住宿網 | 綠島旅遊網 | 綠島民宿網 | 綠島住宿網 | 集集旅遊網 | 集集民宿網
集集住宿網 | 關子嶺旅遊網 | 關子嶺民宿網 | 白河旅遊網 | 白河民宿網 | 心脈大師
尊榮牙醫診所 |