德爾福自定義公式

如果只是四次操作。

您可以參考 Pascal 版本的 Data Structures

有四種演算法可以實現它。

然後制定乙個規則，公式變數序列 x，y，z,..序列字母滿足最大引數要求。

呼叫時提供變數引數，並將引數替換為一系列公式變數。

功能原型建議如下：

varriant function operation(expressions: string,..

begin/ 1.替換 x，y，z 值。

2.替換的字串執行四項操作。

3.返回可變型別值。

end;experssions：計算表示式的模板，即公式。

對於可變函式，讓我們統一使用字串。

例如，i = operation（'y+(x*','','3');

即 x = ， y = 3

e 代表什麼？ 看看你的例子中的公式，如果它碰巧是在德爾福實現的。

你把公式 x 傳遞給函式函式 f（x：string）： string，其中 stringreplace（x，'a','%0:

d'， [rfreplaceall]），並將 B2 替換為 %1：d，替換 C3，並替換 D。

返回的字串類似於 %0：d div %1：d +%2：

到時候應該用d，如果寫乙個隨便寫的公式，就用format（f（x），[a，b，c，d]）就行了，比如除以%，再換一次，換成div。 哦，請注意，div 是整數除法，如果它們是浮點除法，則需要使用它們

我剛才沒注意這個，對不起。

您仍然將使用所有浮點數，然後將 div 替換為 ，然後替換為 d %3：f

如果您也想在其他裝置中使用此功能。

它是在公共場合定義的。

public

function get_item_list(tbname, fdname: string; alist: tstrings): boolean;

然後寫下正在實現的**！

在呼叫其他單位之前使用！

tform1 = class(tform)button1: tbutton;

function button1click(sender: tobject);

private

private declarations }function a(b:string):string;一般回慶春寫在這一行，然後ctrl+c，下面寫**。

如果要執行按鈕，請直接在按鈕的 bleed 事件中編寫 a（）'你好');這種洩漏對樣品具有抵抗力。

protected

public

public declarations }end;function :string):string;

b;end;function : tobject);

begina('你好');

end;

您可以按照計算順序逐步採用不同的公式。 區分哪些是規範，哪些是常量。 括號等，這就是解析。 其功能應根據實際情況編寫。

公式解析控制項，轉到框。

或者使用策略模式，乙個專案和乙個演算法類。

例如，如果要編寫乙個函式 func，根據您的說法，它應該定義為 procedure 而不是 delphi 中的函式，具體寫法應該如下：

procedure func(edate,sdate:tdatetime;

i, k:integer;

var bsdate,bedate:tdatetime);

私下或使用宣告。

然後在實現的地方寫出實現; 或者單獨放在乙個單位單敗堂袁志靈檔案中，引用柴音在用，然後直接引用。

私下申報。

然後在實現的地方寫出實現;