有沒有熟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]

------
額有朝天骨,眼中有靈光

您好,

請問,
可以用二維的嗎

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

...二維? 要怎麼用


[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 文 章===================
您好,

請問,
可以用二維的嗎

------
額有朝天骨,眼中有靈光

參考看看
[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]

編輯記錄

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

感謝您的回應, 傳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]

------
額有朝天骨,眼中有靈光

編輯記錄

感謝 st33chen 回覆, 這感覺可能是我要的, 但我沒這樣寫過一下子看不懂,還需要一點時間研究一下

------
額有朝天骨,眼中有靈光

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

根據樓上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]

------
額有朝天骨,眼中有靈光

你想要的應該是TypeInfo，請參考我之前提出的問題：http://delphi.ktop.com.tw/board.php?cid=30&fid=69&tid=85190
但我不會很建議這樣的方式，就如同問題中提到的，在enumeration的部份可能會有問題，其它的部份我沒有再詳測。

------
不論是否我發的文，在能力範圍皆很樂意為大家回答問題。
為了補我的能力不足之處，以及讓答案可以被重複的使用，希望大家能儘量以公開的方式問問題。
在引述到我的文時自然會儘量替各位想辦法，謝謝大家！