Syntax für generischen Typ

[Sir Rufo]

Die meinen das damit

Delphi-Quellcode:

TLocalizeData<T> = class( TDictionary<TLanguageCode, T> )
end;

[Codewalker]

Zitat von Sir Rufo:

Die meinen das damit

Delphi-Quellcode:

TLocalizeData<T> = class( TDictionary<TLanguageCode, T> )
end;

Ach so. Können die sich dann in der Hilfe nicht gescheit ausdrücken und das als Lösungsbeispiel geben.
Danke Dir für die schnelle Hilfe

[nuclearping]

Kann man auch noch anders machen, indem man das Dictionary Teil einer Klasse macht.

Delphi-Quellcode:

unit ...;

interface

uses ..., Generics.Collections;

type
  TLocalize = class
  strict protected
    FDictionary: TDictionary<String,String>;
  public
    property GetText[AText: String]: String 
      read GetLocalizedText; default;

    // Controls übersetzen
    procedure Translate(AForm: TForm); override;
    procedure Translate(AFrame: TFrame); override;
    procedure Translate(AControl: TWinControl); override;
  end;

implementation

function TLocalize.GetLocalizedText(AText: String): String;
begin
  Result := '';
  if Length(Trim(AText)) = 0 then
    Exit;

  if not FDict.TryGetValue(AText, Result) then
    begin
      FDict.Add(AText, AText);
      Result := AText;
    end;
end;

Verwenden kann man's dann zB so:

Delphi-Quellcode:

var
  L: TLocalize;

begin
  L := TLocalize.Create;
  try
    L.Translate(Self);
    // ...
    ShowMessage(L['Hallo Welt']);
  finally
    FreeAndNil(L);
  end;
end;

Vorteil ist, dass man mehr in die Klasse packen kann, zB Funktionen um Controls zu übersetzen, speichern und laden des Dict usw.

EDIT
Grad gesehen. Wenn du im gleichen Dict verschiedene Sprachen unterbringen willst, müsstest du in dem Fall entweder verschiedene Dicts verwenden (in getrennten Dateien speichern / laden) oder noch ein übergeordnetes Dict schaffen á la TDictionary<Language-String,TLocalize-Klasse>.

[Sir Rufo]

Zitat von nuclearping:

Grad gesehen. Wenn du im gleichen Dict verschiedene Sprachen unterbringen willst, müsstest du in dem Fall entweder verschiedene Dicts verwenden (in getrennten Dateien speichern / laden) oder noch ein übergeordnetes Dict schaffen á la TDictionary<Language-String,TLocalize-Klasse>.

öh, es gibt auch noch [OH]TPair<TKey,TValue>[/OH] das würde sich doch anbieten

[nuclearping]

Oh ok, danke. Selbst noch nicht gewusst.

[Sir Rufo]

Um einen Primary Key in einem TDictionary<TKey,TValue> abzubilden, kann man als TKey ja einen Typen seiner Wahl angeben.

Habe ich für diesen Primary Key ...

• einen Wert, dann nehme ich genau den Datentyp dieses einen Wertes.
  MyDict : TDictionary<string,TMySubject>;
• zwei Werte, dann nehme ich TPair<TKey,TValue>
  MyDict : TDictionary<TPair<string,Int64>,TMySubject>; oder alternativ auch
• n Werte, dann erzeuge ich mir ein Record mit allen Werten
  
  Delphi-Quellcode:

  TFooPrimaryKey = record
    Value1 : string;
    Value2 : Int64;
    Value3 : Boolean;
    Value4 : string;
  end;
  
  MyDict : TDictionary<TFooPrimaryKey,TMySubject>;

[himitsu]

Wobei man bei den letzen 2 eventuell noch einen Comparer erstellen sollte, da TDictionary nicht von selbst diese Typen vergleichen kann.

Das kann nur Binär, bei solchen komplexen Typen, und da wird 'Text' nicht unbedingt gleich 'Text' sein. (wenn das unterschiedliche Variablen sind, da nur der Zeiger und nicht der Inhalt verglichen würde)