Dem Typ TObject eine Property hinzufügen

[alzaimar]

Für mehrsprachige Anwendungen würde ich GNUGetText verwenden, da hat sich dann jemand die Mühe schonmal gemacht.

[alcaeus]

Hallo,

ungetestet:

Delphi-Quellcode:

type
  TObjectHelper = class helper for TObject
  public
    LanguageIndex: Integer;
  end;

Sollte eigentlich funktionieren :)

Greetz
alcaeus

[s.h.a.r.k]

Zitat:

Zitat von alzaimar

Für mehrsprachige Anwendungen würde ich GNUGetText verwenden, da hat sich dann jemand die Mühe schonmal gemacht.

meinst du das hier: http://dybdahl.dk/dxgettext/??

[s.h.a.r.k]

Zitat:

Zitat von alcaeus

Delphi-Quellcode:

type
  TObjectHelper = class helper for TObject
  public
    LanguageIndex: Integer;
  end;

Mal blöd gefragt: Was mach ich damit, bzw wo füge ich den Code hinzu?! und was genau macht das?!

[Edit]In meiner Delphi-Hilfe habe ich das hier gefunden

Zitat:

Class Helpers (.NET)

Allerdings progge ich nicht in .NET...
[/Edit]

[alcaeus]

Die class helpers funktionieren auch in Delphi 2005 bereits mit Win32, allerdings erst in Delphi 2006 offiziell. Und die Deklaration kommt genau dahin, wo eine Klassendeklaration mit type normal hinkommt, je nach Sichtbarkeit in den interface oder implementation-Bereich der Unit ;)

Greetz
alcaeus

[s.h.a.r.k]

Tut mir leid wenn ich mich nun ein bisschen blöd anstelle, aber es geht leider nicht. Irgendwie weiß ich auch nicht wie ich es anwenden soll und vor allem wo genau. Ich hab ja mein Haupt-Unit, von mir aus Unit1. Daneben hab ich mehrere andere Units. Um nun TObject zu erweitern muss ich den Code wo hin kopieren?! In die Classes-Unit ist ja nicht sinn und Zweck oder?!

Wenn ich das ganze in meine Unit1 kopieren, dann erscheint folgender Fehler (mit Delphi 2005 Architect). Der Cursor bleibt dann hinter LanguageIndex stehen...

Zitat:

[Error] Unit1.pas(20): E2169 Field definition not allowed after methods or properties

Das for im Quelltext unterstreicht er rot und als Meldung kommt da dann:

Zitat:

Failed to find standard type of 'TObjectHelper'

Ich hoffe du kannst mir weiterhelfen!

[Jens Schumann]

Hallo,
gehe ich recht in der Annahme, dass man über einen ClassHelper nur Methoden hinzufügen kann und keine Eigenschaften?
Das folgende Code funktioniert mit D2005 Personal

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type

  TObjectHelper = class helper for TObject
  public
    function LanguageIndex: Integer;
  end;

  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function TObjectHelper.LanguageIndex : Integer;
begin
  Result:=5;
end;

end.

[s.h.a.r.k]

Vieln Dank Jens, jetzt funktioniert das ganze wunderbar!!!