Hallo,
habe Problem mit privat gekapselten Arrays einer Komponente
Delphi-Quellcode:
unit MyKomponente;
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
//+ Komponente TMyKomponente
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
interface
uses
SysUtils,Classes, Controls, ExtCtrls, Graphics;
type
TFilm:
array[1..10,1..10]
of single;
TEichPlan =
class(TPaintBox)
private
pPlan : TFilm;
function getPlan : TFilm;
procedure setPlan(Wert:TFilm);
protected
public
published
property Plan : TFilm
Read GetPlan
Write SetPlan;
...
{ Published-Deklarationen }
end;
...
//##############################################################################
implementation
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
function TEichPlan.getPlan : TFilm;
begin
Result:=pPlan;
end;
procedure TEichPlan.setPlan(Wert:TFilm);
begin
pPlan:=Wert;
end;
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
...
wenn ich im Hauptprogramm die Funktion Plan aufrufe,
Delphi-Quellcode:
// Hauptprogramm
type
TForm1=class(TForm):
MyKomponente:TMyKomponente
var
Form1:Form1;
...
implementation
...
MyKomponente1.Plan[1,1]:=11;
...
bekomme ich den Compiler-Fehler: "Der linken Seite ksnn nichts zugewiesen werden."
Was habe ich da falsch gemacht?
Danke
E. B.