Hallo,
hier mein Code:

zusammenfalten · markieren

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?

Tja barnti

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

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

Sonnige Grüße,

Jens

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

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

Hallo,

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