Neue Klasse erstellen

[barnti]

Hallo,
hier mein Code:

Delphi-Quellcode:

unit Versioninfo;

interface
type
  TVersionInfo=class

  private
    function GetVersioninfo(Index: Integer): String;
  public
    constructor Create (ThisSourceFile: String);
    destructor  Destroy; override;

    property Key[KeyName: String]: String read GetKey;  // hier sagt der Compiler:
                                                        // [Error] Versioninfo.pas(13): Field or
                                                        // method identifier expected

    property CompanyName: String index 0 read GetVersionInfo write SetVersionInfo;
    property FileDescription: String index 1 read GetVersionInfo;
    property FileVersion: String index 2 read GetVersionInfo;
    property InternalName: String index 3 read GetVersionInfo;
    property Copyright: String index 4 read GetVersionInfo;
    property TradeMarks: String index 5 read GetVersionInfo;
    property OriginalFileName: String index 6 read GetVersionInfo;
    property ProductName: String index 7 read GetVersionInfo write SetVersionInfo;
    property ProductVersion: String index 8 read GetVersionInfo write SetVersionInfo;
    property Comments: String index 9 read GetVersionInfo;
    property BuildNumber: String read GetVersionInfo;
  end;

implementation

end.

Kann mir mal jemand auf die Srünge helfen, was ich falsch mache? Wie kann ich das Interface richtig implementieren?

[geesmith]

Tja barnti

Wo hast du denn eine Variable oder Funktion namens "GetKey"??

[plumper]

Schätze er wird bei 'SetVersionInfo' ebenfalls Probleme bekommen...

Sonnige Grüße,

Jens

[barnti]

Hi,
ok, is zu früh!
Habe ich inzwischen im Implementationsteil hinzugefügt! Sorry für die Mühe und Danke!

[Bernhard Geyer]

Falls Du dir das Coden sparen willst: In der Jedi Code Library gibt es die Fertige Klasse TJclFileVersionInfo

[barnti]

Hallo,

den Code hatte ich leider nur unvollständig. Deshalb meine Probleme! Jetzt kannn ich mal nachlesen.
Danke!