この問題を解決する基本的な方法があるかどうかを知りたいです。また、Pascal の特定のソリューションにも特に関心があります。
「InputVARIABLE」と「InputVALUE」の 2 つの入力を持つフォームがあるとします。
InputVARIABLE 領域で、ユーザーは変更したい変数の名前を入力します。InputVALUE 領域で、ユーザーはこの変数の値を入力します。
したがって、inputtexts 'color' および 'blue' の場合: 次のような IF ステートメントを使用せずに変数 VAR_color を変更するにはどうすればよいですか?
If InputVARIABLE.Text = 'color' Then VAR_color := InputVALUE.Text;
たとえば、次のような機能がありますか。
ChangeVariable(InputVARIABLE.Text, InputValue.Text)
あなたが助けてくれることを願っています!
デルファイで事前定義された実際の変数を変更する必要がない場合は、実際には別のことを行うことができます。
本当に必要なのは、キーと値のペアを保存することだけです。
これは他の言語では連想配列/辞書/キーと値のペアと呼ばれます
だからあなたは言うことができます
Arr['color'] := 'red';
または言う
Arr[edit1.Text] := edit2.Text;
その後逆に
Caption := Arr['color'];
キャプションを「赤」または edit2.text にあるものに設定します。これに好きなだけ追加できます。
古いバージョンの Delphi を使用している場合は、Tlist クラスを使用して同じことを行うことができますが、入れ子にする必要はありません。
arr:= TStringList.Create;
arr.Add('color=red');
s := arr.Values['color'];
arr.free;
入れ子も必要だったので、デルファイ XE3 の辞書を使用して連想配列クラスを作成しました。これは、将来的にも役立つ可能性があります。
unit assoc;
interface
uses System.Generics.Collections, System.SysUtils;
type TAssoc = class
private
fVal: Variant;
fStrict: Boolean;
fDict: TDictionary<Variant,TAssoc>;
function GetItem(Index: Variant): TAssoc;
procedure SetVal(v: Variant);
function GetVal:Variant;
public
/// <summary>
/// Returns the TAssocnode by default allowing you to chain Nodes
/// </summary>
/// <param name="Index">
/// Search index, can be any primitive type.
/// </param>
property Items[Index: Variant]: TAssoc read GetItem; default;
/// <summary>
/// Use this to read and write a node value.
/// </summary>
/// <value>
/// can be almost everything Try not to use objects in here.
/// </value>
property Val:Variant read GetVal write SetVal;
/// <summary>
/// Gives you a direct link to the tdictionary object alowing you to
/// itterate
/// </summary>
property All:TDictionary<Variant,TAssoc> read fDict;
/// <summary>
/// <para>
/// Usefull for creating keys in strict mode
/// </para>
/// <para>
/// Array.add('key');<br />Array['key'].Val = 1;
/// </para>
/// <para>
/// Wich would throw an error in strict mode as 'key' is not defined
/// <br />In non strict mode it will just be created for you
/// </para>
/// </summary>
function Add(Index: Variant):TAssoc; overload;
/// <summary>
/// <para>
/// Usefull for creating keys in strict mode and setting its value at the same time
/// </para>
/// <para>
/// Array.add('key',1);<br />Array['key'].Val = 1;
/// </para>
/// <para>
/// Wich would throw an error in strict mode as 'key' is not defined
/// <br />In non strict mode it will just be created for you
/// </para>
/// </summary>
function Add(Index: Variant; Value: Variant):TAssoc; overload;
/// <summary>
/// Strictmode will raise an exception when you try to:<br />- set a nod
/// that was already set instead of overwriting it.<br />- read a node
/// that was nto set
/// </summary>
/// <param name="strictRules">
/// Strictmode on of off
/// </param>
constructor Create(strictRules:Boolean);
destructor Free;
/// <summary>
/// Clears all underlying nodes
/// </summary>
procedure Clear;
end;
type TAssocEnum = TPair<Variant, TAssoc>;
implementation
{ TAssoc }
function TAssoc.Add(Index: Variant): TAssoc;
begin
Result := nil;
if(fDict<>nil) then begin // see if dict is or can be made
if(fDict.ContainsKey(Index)) then begin // see if the key is in there
if(fStrict = true) then begin // duplicate keys not strict
raise Exception.Create('Dictionary is in strict mode, the key "'+Index+'" was already set.');
end;
end else begin // dict made, just not the key
Result := TAssoc.Create(fStrict);
fDict.Add(Index,Result);
end;
end else begin // dict not found
begin // make dict and key
fDict := TDictionary<Variant,TAssoc>.Create(1);
Result := TAssoc.Create(fStrict);
fDict.Add(Index,Result);
end;
end;
end;
function TAssoc.Add(Index, Value: Variant): TAssoc;
begin
Result := Add(Index);
Result.Val := Value;
end;
procedure TAssoc.Clear;
var
Enum: TPair<Variant, TAssoc>;
begin
if(fDict<>nil) then begin
for Enum in fDict do begin
Enum.Value.Free;
end;
end;
fDict.Clear;
end;
constructor TAssoc.Create(strictRules:Boolean);
begin
fStrict := strictRules;
fDict := nil;
TVarData(fVal).VType := varEmpty;
end;
destructor TAssoc.Free;
var
Enum: TPair<Variant, TAssoc>;
begin
if(fDict<>nil) then begin
for Enum in fDict do begin
Enum.Value.Free;
end;
end;
end;
function TAssoc.GetItem(Index: Variant): TAssoc;
var
v: Variant;
begin
Result := nil;
if(fdict<>nil) then begin // see if dict is or can be made
if(fDict.ContainsKey(Index)) then begin // see if the key is in there
Result := fDict.Items[Index];
end else begin // dict made, just not the key
if (fStrict) then begin
raise Exception.Create('Dictionary is in strict mode, the key "'+Index+'" was not set.');
end else begin // if not set, create the index and make it into a assocnode
Result := TAssoc.Create(fStrict);
fDict.Add(Index,Result);
end;
end;
end else begin // if the key is not in there see if strict or not
if(fStrict) then begin // if strict then error index not set
raise Exception.Create('Dictionary is in strict mode, the key "'+Index+'" was not set.');
end else begin // if not set, create the index and make it into a assocnode
fDict := TDictionary<Variant,TAssoc>.Create(1);
Result := TAssoc.Create(fStrict);
fDict.Add(Index,Result);
end;
end;
end;
function TAssoc.GetVal: Variant;
begin Result := fVal; end;
procedure TAssoc.SetVal(v: Variant);
begin fVal := v; end;
// todo:
// make a kickass helper class
// output xml/json
// walk through tree
// parentnode property?
// make a delphi7 version using stringlist? (not worth it)
// have fun
end.
簡単な使い方
Arr := TAssoc.Create(False);
Arr['color'].Val := 'red';
Arr[edit1.text].Val := edit2.text;
Arr.Free;
高度な使い方
Arr := TAssoc.Create(False);
Arr['cuzz']['cdcollection'][1]['name'].Val := 'Mika Album'; // set cd
Arr['cuzz']['cdcollection'][2]['name'].Val := 1; // set cd
Arr['cuzz']['cdcollection'][1]['name'].Val := 'Delphi 5'; // overwrite cd
Arr['cuzz']['cdcollection']['last']['name'].Val := 'Delphi xe3'; // overwrite cd
// list all cd's
for Enum in Arr['cuzz']['cdcollection'].All do begin
Memo1.Lines.Append('Property "'+String(Enum.Key)+'" holds "'+String(Enum.Value['name'].Val));
end;
Arr.Free;
デルファイが揺れる！楽しみ。