2 
  Data.XX.NewValue := Data.XX.SavedValue;
  Data.XX.OldValue := Data.XX.SavedValue;

上記を何度も行う必要があります。ここで、XX はクラスの値を表します。リストにはティム、ボブ、スティーブの 3 つの項目があるふりをしました。上記のコードを 3 回入力せずに、3 人全員に対して上記を行う方法はありますか?

(データは、OldValue、NewValue、および SavedValue を含む各タイプの TList の多数のオブジェクトを含むクラスです)

4

4 に答える 4

4

このようなことをしなければならない場合に私がすべきことは、Data にもう 1 つの TList を配置することです。この TList には、すべてのオブジェクトのリストが保持されます。コンストラクターに入力し、このようなことをしなければならない場合は、ループを使用して、リスト内の各項目に同じ基本操作を適用します。

于 2010-04-13T13:43:15.733 に答える
0

多分私はそれを理解していませんが...ここがオブジェクト指向が輝いているところです。クラスのプロシージャを定義してから、作成するすべてのインスタンスに適用します。

TMyPropValue = class(TObject)
private
  FNewValue: double;   
  FOldValue: double;
  procedure SetValue(AValue: double);
public
  procedure RestoreOldValue;
  propety NewValue: double read FNewValue write SetValue;   // Raed/write property (write using a procedure)
  property OldValue: double read FOldValue;   // Read only property
end;

TMyClass = class(TObject)
private
  FProp1: TMyPropValue;
  FProp2: TMyPropValue;
public
  procedure RestoreValues;
end;

//....

var
  MyObj1: TMyClass;
  MyObj2: TMyclass;

procedure TMyPropValue.SetValue(AValue: double);
begin
  FOldValue := FNewValue;
  FNewValue := AValue;  
end;

// Restore the Old value of this Prop
procedure TMyPropValue.RestoreOldValue;
begin
  FNewValue := FOldValue;  
end;

// Restore ald the Values of the class
procedure TMyClass.RestoreValues;
begin
  FProp1.RestoreOldValue;
  FProp2.RestoreOldValue;
end;
// -----------

// Creating and populating a couple of objects (instances)
procedure XXX;
begin
  MyObj1 := TMyClass.Create;
  MyObj1.Prop1.NewValue := 10.25:
  MyObj1.Prop2.NewValue := 99.10:

  MyObj2 := TMyClass.Create;
  MyObj2.Prop1.NewValue := 75.25:
  MyObj2.Prop2.NewValue := 60.30:
end;

// Changing values, the class internaly will save the OldValue
procedure yyyy;
begin
  MyObj1.Prop1.NewValue := 85.26:
  MyObj1.Prop2.NewValue := 61.20:

  MyObj2.Prop1.NewValue := 99.20:
  MyObj2.Prop2.NewValue := 55.23:
end;

// Using a procedure from the class
procedure zzzz;
begin
  MyObj1.RestoreValues;
  MyObj2.RestoreValues;
end;

これがダニエルに役立つことを願っています

于 2010-04-13T22:28:12.027 に答える
0

この投稿とこの投稿から判断すると、次のことをお勧めします。

unit MyAssignment;

interface

  type
    TValueKind = ( EconomicGrowth,
                   Inflation,
                   Unemployment,
                   CurrentAccountPosition,
                   AggregateSupply,
                   AggregateDemand,
                   ADGovernmentSpending,
                   ADConsumption,
                   ADInvestment,
                   ADNetExports,
                   OverallTaxation,
                   GovernmentSpending,
                   InterestRates,
                   IncomeTax,
                   Benefits,
                   TrainingEducationSpending );

        TValue = record
          NewValue,
          OldValue,
          SavedValue : Double;

          procedure SetValue( aVal : Double );
          procedure SaveValue();
          procedure RestoreValue();
        end;

        TDataArray = array [TValueKind] of TValue;

        var
          Data : TDataArray;

implementation

    {TValue}

  procedure TValue.SetValue( aVal : Double );
  begin
    OldValue := NewValue;
    NewValue := aVal;
  end;

  procedure TValue.SaveValue;
  begin
    SavedValue := NewValue;
  end;

  procedure TValue.RestoreValue;
  begin
    NewValue := SavedValue;
    OldValue := SavedValue;
  end;


end.

これで、この種のコードを書くことができます:

            //accessing the values :
            // Data[XX] instead of Data.XX

            //examples :
          ShowMessage(FloatToStr(Data[Inflation].SavedValue));
          Data[AgregateSupply].SetValue( 10.0 );
          Data[Benefits].SaveValue;

          //writing loops :
        procedure RestoreValues( var aData : TDataArray ); //the "var" keyword is important here : google "arguments by value" "arguments by reference"
          var
            lKind : TValueKind;
        begin
          for lKind := Low(TValueKind) to High(TValueKind) do
            aData[lKind].RestoreValue;
        end;

        procedure SaveValues( var aData : TDataArray );
          var
            lKind : TValueKind;
        begin
          for lKind := Low(TValueKind) to High(TValueKind) do
            aData[lKind].RestoreValue;
        end;

          //calling these functions :
        SaveValues( Data );
        RestoreValues( Data );

配列に対してより複雑な操作が必要な場合は、それをクラスに入れ、書き込んだフィールドを TDataArray 型の efield のみに置き換え、データを操作する関数をこのクラスのメソッドとして記述することをお勧めします。

于 2010-04-14T11:41:55.007 に答える
-3

ここは気をつけます。共通のインターフェイスとリフレクション、またはより柔軟で、率直に言って、書くのがより楽しい他の自動化を使用したいという誘惑に駆られることはわかっています。この誘惑を避けてください。パターンに従ってリスト内のすべての項目をリストすることに問題はありません。パターンは適切であり、コードは読みやすく、実行しやすく、パターンに適合しない個々のプロパティを簡単に変更できます。

すべてを入力するのを避けるためのローテクな方法は、古くからの友人である Excel を使用することです。すべてのプロパティを列 A に入力し、列 B で次の式を使用します。

=  CONCATENATE("Data.", A1, ".NewValue := Data.", A1, ".SavedValue;", CHAR(10), "Data.", A1, ".OldValue := Data.", A1, ".SavedValue;", CHAR(10))
于 2010-04-13T13:52:48.513 に答える