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;