Habe schon einige Treads durchgelesen, bekomme es aber trotzdem nicht hin.
Delphi-Quellcode:
TProfil = record
Name, Option1, Option2 : String;
Wert: integer;
end;
Profilspeicher = Array[1..30] of TProfil;
TSpeicher = class
private
FProfilspeicher: Profilspeicher;
function Get(Index: Integer): string;
procedure Put(Index: Integer; S: string);
public
property PProfilspeicher: Profilspeicher read Get; //Hier ist der aktuelle Fehler!!
end;
...
implementation
function TForm13.Get(Index: Integer): string;
procedure TForm13.Put(Index: Integer; S: string);
An der genannten Stelle, an der ich die Funktion Get dem auslesen zuweisen will, sagt er, Get und Profilspeicher sind inkompatible Typen.
Vermutlich mache ich nur wieder einen weiteren blöden Denkfehler, aber ich komme einfach nicht dahinter.
Wenns total falsch ist, wie mache ich es dann?
Mein Ziel ist es, ein allen Units zugängliches Array von einem Record zu erstellen...