Procedure Problem Fehlermeldung?!?

[Hansi]

Hey,

Bekomme immer diese Fehlermeldung: Undefinierter Bezeichner "Self". Was muss ich vor Self schreiben?

Hintergrundinfo: Über einen RadioGroup soll der Parameter Zeitraum(ZR) abgefragt werden, um dann den Parameter im TDBChart zu verwenden. Deshalb schreibe ich hier eine eigene Procedure um beim OnClick Ereignis diese Procedure auszuführen.

Delphi-Quellcode:

procedure Chart(ZR:Integer);
var
Aktienchart:TLineSeries;
begin
  with Form1.Query1 Do
    begin
      ZR:=ZR+1;
      Form1.Query1.SQL.Clear;
      Form1.Query1.SQL.Add('SELECT Datum, Close FROM '+Form1.ComboBox1.Text+'');
      Open;
    end;
Aktienchart:=TLineSeries.Create(Self);
with Aktienchart do
  begin
    ParentChart:=Form1.DBChart1;
    DataSource:=Form1.Query1;
    XLabelsSource:='Datum';
    YValues.ValueSource:= 'Close';
    SeriesColor:= clBlue;
    CheckDatasource;
  end;
end;

[Pr0g]

Hallo,

da du die Prozedur nicht in "Form1" deklariert hast, kannst du auch kein "Self" verwenden, also entweder in den private/public Bereich eintragen, oder statt dem "Self" ein "Form1" reinschreiben.

MfG Pr0g

[alcaeus]

Hi Hansi,

schreib statt Self mal Form1. Self zeigt auf die Klasse, in welcher die Funktion liegt. Und nachdem "Chart" nicht zu einer Klasse gehoert, ist Self natuerlich unbekannt.

Greetz
alcaeus

[Hansi]

Lösung war "Self" durch "Form1" zu ersetzen!

Danke!