有沒有辦法告訴function 要取用的entry |
答題得分者是:st33chen
|
小傑克
資深會員 發表:5 回覆:209 積分:357 註冊:2009-02-16 發送簡訊給我 |
有沒有熟pascal語法的前輩能指點一下, 我想把後面三個重複的For loop 變成function 要怎麼傳給function 告訴它我現在要做的是 a 或是 b 或是 c
[code delphi] procedure TForm1.Button1Click(Sender: TObject); type oMy=record a,b,c:integer; end; arroMy=array[0..100] of oMy; var i,iMaxA,iMaxB,iMaxc:integer; o:arroMy; begin for i := 0 to 100 do begin o[i].a := i; o[i].b := i; o[i].c := i; end; for i := 0 to 100 do begin iMaxA := Max(o[i].a , iMaxA ); //....我只是要算一個值, 這邊其實有好多行,省略用 Max 表示一下 end; for i := 0 to 100 do begin iMaxB := Max(o[i].B , iMaxB ); //....我只是要算一個值, 這邊其實有好多行,省略用 Max 表示一下 end; for i := 0 to 100 do begin iMaxC := Max(o[i].c , iMaxC ); //....我只是要算一個值, 這邊其實有好多行,省略用 Max 表示一下 end; //後面這三個 for loop 做的內容都一樣,只有.a .b .c不同 , 一樣是要算出一個值而已 //要怎麼寫才能把 for loop 的部分變成一個 function 來 call ,因為我程式裏不只a,b,c...其實是有好多欄位 // for loop 裡面也十幾行, 每次算法要改都改一堆地方 end; [/code]
------
額有朝天骨,眼中有靈光 |
st33chen
尊榮會員 發表:15 回覆:591 積分:1201 註冊:2005-09-30 發送簡訊給我 |
|
小傑克
資深會員 發表:5 回覆:209 積分:357 註冊:2009-02-16 發送簡訊給我 |
...二維? 要怎麼用
[code delphi] TStOneDateDataR=record sDate :String; StNo :String; StName :String; CMNo :Real; CMCount :Real; CMAmount :Real; OPPrice :Real; HIPrice :Real; LOPrice :Real; CLPrice :Real; UPDown :String; UPDownPrice :Real; LSTBy :Real; LSTByCount :Real; [/code] 這是程式定義的一部分, 為了維持可讀性,這部分沒辦法改,而且改定義程式就要翻掉了 ><" ===================引 用 st33chen 文 章=================== 您好, 請問, 可以用二維的嗎
------
額有朝天骨,眼中有靈光 |
alex621013
一般會員 發表:1 回覆:4 積分:1 註冊:2005-05-01 發送簡訊給我 |
參考看看
[code delphi] procedure TForm1.Button1Click(Sender: TObject); type oMy=record a,b,c:integer; end; arroMy=array[0..100] of oMy; var i,iMaxA,iMaxB,iMaxc:integer; o:arroMy; X:array of integer; begin for i := 0 to 100 do begin o[i].a := i; o[i].b := i; o[i].c := i; end; SetLength(X,Length(o)); for i := Low(X) to High(X) do begin X[i] := o[i].a; end; iMaxA := Evaluate(X); for i := Low(X) to High(X) do begin X[i] := o[i].b; end; iMaxB := Evaluate(X); for i := Low(X) to High(X) do begin X[i] := o[i].c; end; iMaxC := Evaluate(X); end; function TForm1.Evaluate(a:Array of Integer):Integer; var iReturnValue:Integer; begin iReturnValue := MaxIntValue(a); Result:=iReturnValue; end; [/code] ===================引 用 小傑克 文 章=================== 有沒有熟pascal語法的前輩能指點一下, 我想把後面三個重複的For loop 變成function 要怎麼傳給function 告訴它我現在要做的是 a 或是 b 或是 c [code delphi] procedure TForm1.Button1Click(Sender: TObject); type oMy=record a,b,c:integer; end; arroMy=array[0..100] of oMy; var i,iMaxA,iMaxB,iMaxc:integer; o:arroMy; begin for i := 0 to 100 do begin o[i].a := i; o[i].b := i; o[i].c := i; end; for i := 0 to 100 do begin iMaxA := Max(o[i].a , iMaxA ); //....我只是要算一個值, 這邊其實有好多行,省略用 Max 表示一下 end; for i := 0 to 100 do begin iMaxB := Max(o[i].B , iMaxB ); //....我只是要算一個值, 這邊其實有好多行,省略用 Max 表示一下 end; for i := 0 to 100 do begin iMaxC := Max(o[i].c , iMaxC ); //....我只是要算一個值, 這邊其實有好多行,省略用 Max 表示一下 end; //後面這三個 for loop 做的內容都一樣,只有.a .b .c不同 , 一樣是要算出一個值而已 //要怎麼寫才能把 for loop 的部分變成一個 function 來 call ,因為我程式裏不只a,b,c...其實是有好多欄位 // for loop 裡面也十幾行, 每次算法要改都改一堆地方 end; [/code]
編輯記錄
alex621013 重新編輯於 2009-03-10 16:51:39, 註解 無‧
|
st33chen
尊榮會員 發表:15 回覆:591 積分:1201 註冊:2005-09-30 發送簡訊給我 |
您好, 我想到的方法是算出 record 中第n個 field 的實際位置後再存取其值. 我的例子作法是 : 拉一個 edit1 用來指定 recrod 的第幾個 field 拉一個 edit2 用來指定 第 edit1 個 field 的值 拉一個 button, o n c l i c k 會 call 一個 procedure, 傳入 edit1 的數值, edit2 的字串值. 程式如下 : unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; // 指定 record 的第幾個 field Edit2: TEdit; // 給予的值 procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; // 測試用的 record TStrRec = record rInt: Integer; rStr1: String; rStr2: String; rStr3: String; end; var Form1: TForm1; vRec1: TStrRec; len1, len2 : array[0..3] of integer; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var inp_ith : integer; procedure show_nth_field(ith: integer; strval: string); begin if ith=0 then begin integer(pointer(len1[ith])^) := strtointdef(strval,0); showmessage('by memory address : ' inttostr(integer(pointer(len1[ith])^))); showmessage('by record definition : ' inttostr(vRec1.rInt)); end else begin string(pointer(len1[ith])^) := strval; showmessage('by memory address : ' string(pointer(len1[ith])^)); if ith=1 then showmessage('by record definition : ' vRec1.rstr1) else if ith=2 then showmessage('by record definition : ' vRec1.rstr2) else if ith=3 then showmessage('by record definition : ' vRec1.rstr3); end; end; begin inp_ith := strtointdef(edit1.Text, -1); if inp_ith<0 then exit; len1[0] := sizeof(vrec1.rInt); len1[1] := sizeof(vrec1.rStr1); len1[2] := sizeof(vrec1.rStr2); len1[3] := sizeof(vrec1.rStr3); // showmessage(inttostr(len1[0]) '-' inttostr(len1[1]) '-' inttostr(len1[2]) '-' inttostr(len1[3])); // 測試給值後的 sizeof vRec1.rInt := 1; vRec1.rStr1 := '1231231234567890000000000000000000000000000'; vRec1.rStr2 := '1'; vRec1.rStr3 := '13457'; // 測試給值後的 sizeof end len2[0] := sizeof(vrec1.rInt); len2[1] := sizeof(vrec1.rStr1); len2[2] := sizeof(vrec1.rStr2); len2[3] := sizeof(vrec1.rStr3); // showmessage(inttostr(len1[0]) '-' inttostr(len1[1]) '-' inttostr(len1[2]) '-' inttostr(len1[3])); len1[0] := Integer(@vRec1); len1[1] := len1[0] len2[0]; len1[2] := len1[1] len2[1]; len1[3] := len1[2] len2[2]; show_nth_field(inp_ith, edit2.text); END; end.
參考一下, 應該可以改成您所要的.
------
IS IT WHAT IT IS 我是 李慕白 請倒著唸. 又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦); 都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲. |
小傑克
資深會員 發表:5 回覆:209 積分:357 註冊:2009-02-16 發送簡訊給我 |
感謝您的回應, 傳array 也是個變通的辦法
主要是我delphi也用快10年了, 一直都是在應用面打轉,像 classes.pas 裏面有一些寫法,我從來都沒用過 比如 TListSortCompare = function (Item1, Item2: Pointer): Integer; procedure Sort(Compare: TListSortCompare); 看了這個後有一些啟發, 連function 也可以當作參數在傳, 那也許我遇到的問題也許也能用很簡單的寫法去做,只是我底子不紮實想不出來 我看system.pas 中也很多寫法很深,delphi 在實作TObject 好像可以call by address 但是很多都用asm 語法,看不懂... ===================引 用 alex621013 文 章=================== 參考看看 [code delphi] var X:array of integer; begin SetLength(X,Length(o)); for i := Low(X) to High(X) do begin X[i] := o[i].a; end; iMaxA := Evaluate(X); for i := Low(X) to High(X) do begin X[i] := o[i].b; end; iMaxB := Evaluate(X); for i := Low(X) to High(X) do begin X[i] := o[i].c; end; iMaxC := Evaluate(X); end; [/code]
------
額有朝天骨,眼中有靈光
編輯記錄
小傑克 重新編輯於 2009-03-10 21:48:31, 註解 無‧
|
小傑克
資深會員 發表:5 回覆:209 積分:357 註冊:2009-02-16 發送簡訊給我 |
|
st33chen
尊榮會員 發表:15 回覆:591 積分:1201 註冊:2005-09-30 發送簡訊給我 |
您好, 可以再簡化成 procedure TForm1.Button1Click(Sender: TObject); procedure show_num_field(para: pointer); begin showmessage(inttostr(integer(para^))); end; procedure show_str_field(para: pointer); begin showmessage(string(para^)); end; begin
vRec1.rInt := 1; vRec1.rStr1 := '1231231234567890000000000000000000000000000'; vRec1.rStr2 := '1'; vRec1.rStr3 := '13457'; show_num_field(@vrec1.rInt); show_str_field(@vrec1.rstr1); show_str_field(@vrec1.rstr2); show_str_field(@vrec1.rstr3); END;
------
IS IT WHAT IT IS 我是 李慕白 請倒著唸. 又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦); 都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲. |
小傑克
資深會員 發表:5 回覆:209 積分:357 註冊:2009-02-16 發送簡訊給我 |
根據樓上st33chen 的方法, 是可以完成....只是感覺好像回到C的年代,要自己跳格子
以下是根據st33chen 說的方式,我把最初題問改寫的結果 謝謝st33chen的幫助, 也謝謝alex621013 的說明 [code delphi] procedure TForm1.Button2Click(Sender: TObject); type oMy=record a,b,c:integer; end; arroMy=array[0..100] of oMy; var iaFieldPointerGap:array[0..2] of integer; slFieldList:TStringList; iFieldMappingIndex:Integer; i,iMaxA,iMaxB,iMaxC:integer; o:arroMy; procedure InitFieldPointerGap; // 現在只要hard code 這段就可以 begin slFieldList.Add(UpperCase('a')); slFieldList.Add(UpperCase('b')); slFieldList.Add(UpperCase('c')); iaFieldPointerGap[0] := Integer(@o[0].a); iaFieldPointerGap[1] := Integer(@o[0].b); iaFieldPointerGap[2] := Integer(@o[0].c); end; function GetFieldRange(FieldName:String):Integer; var Fid:integer; begin slFieldList.Find(UpperCase( FieldName),Fid) ; Result := iaFieldPointerGap[Fid] - iaFieldPointerGap[0] ; end; function myCalc(FieldName:string;oo:arroMy):integer; var ii,value:integer; frange:integer; begin Result := 0; frange := GetFieldRange(FieldName); for ii := 0 to 100 do begin value := Integer( pointer( Integer(@oo[ii].a) frange )^); Result := Max(value,Result); end; end; begin slFieldList := TStringList.Create; InitFieldPointerGap; iMaxA := 0; iMaxB := 0; iMaxC := 0; for i := 0 to 100 do begin o[i].a := i; o[i].b := i i; o[i].c := i*i; end; for i := 0 to 100 do begin iMaxA := Max(o[i].a , iMaxA ); end; for i := 0 to 100 do begin iMaxB := Max(o[i].B , iMaxB ); end; for i := 0 to 100 do begin iMaxC := Max(o[i].c , iMaxC ); end; ShowMessage(IntToStr(iMaxA)); ShowMessage(IntToStr(iMaxB)); ShowMessage(IntToStr(iMaxC)); ShowMessage(IntToStr(myCalc('a',o))); ShowMessage(IntToStr(myCalc('b',o))); ShowMessage(IntToStr(myCalc('c',o))); slFieldList.Free; end; [/code]
------
額有朝天骨,眼中有靈光 |
Coffee
版主 發表:31 回覆:878 積分:561 註冊:2006-11-15 發送簡訊給我 |
你想要的應該是TypeInfo,請參考我之前提出的問題:http://delphi.ktop.com.tw/board.php?cid=30&fid=69&tid=85190
但我不會很建議這樣的方式,就如同問題中提到的,在enumeration的部份可能會有問題,其它的部份我沒有再詳測。
------
不論是否我發的文,在能力範圍皆很樂意為大家回答問題。 為了補我的能力不足之處,以及讓答案可以被重複的使用,希望大家能儘量以公開的方式問問題。 在引述到我的文時自然會儘量替各位想辦法,謝謝大家! |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |