| Autor |
Beitrag |
juergen_21
Hält's aus hier
Beiträge: 3
|
Verfasst: Do 12.05.05 03:36
Hab das Problem, das ich in einem Chart x Series zur Laufzeit erzeugen muß, aber keine Ahnung habe wie ich das schaffe.
Kann mir jemand dafür ein einfaches Beispiel posten?
chart1.serieslist. ???
Gruß
Jürgi
|
|
astaria
Hält's aus hier
Beiträge: 10
Win 98, Win XP Prof
D6 Ent
|
Verfasst: Do 12.05.05 12:16
Das sollte mit einer der folgenden Möglichkeiten gehen:
  Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
| MyChart.AddSeries( TBarSeries.Create( Self ) );
MyChart.AddSeries( TLineSeries );
var P : TPieSeries;
P := TPieSeries.Create( Self );
P.ParentChart := MyChart; |
Je nachdem, was du halt für ne Art Serie erstellen willst, musst du natürlich TBarSeries, TLineSeries usw. verwenden.
Moderiert von  raziel: Code- durch Delphi-Tags ersetzt._________________ Fortunately, I'm adhering to a pretty strict, uh, drug, uh, regimen to keep my mind, you know, uh, limber.
|
|
juergen_21 
Hält's aus hier
Beiträge: 3
|
Verfasst: Do 12.05.05 12:42
Hab es jetzt folgendermaßen probiert:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
| unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, TeeProcs, TeEngine, Chart, Series;
type
TForm1 = class(TForm)
Chart1: TChart;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
Datenreihe: TLineSeries;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
chart1.AddSeries(Datenreihe);
end;
end. |
Hat aber leider auch nicht funktioniert, wo liegt mein Fehler?
Moderiert von raziel: Code- durch Delphi-Tags ersetzt.
|
|
smiegel
 
Beiträge: 992
Erhaltene Danke: 1
WIN 7
D7 Prof., C#, RAD XE Prof.
|
Verfasst: Do 12.05.05 13:22
Hallo,
weil die Series erst erzeugt werden muss!!!
Delphi-Quelltext
1:
2:
3:
4:
5:
| chart1.AddSeries(TLineSeries.Create(Self));
Datenreihe:=TLineSeries.Create(Self);
chart1.AddSeries(Datenreihe); | _________________ Gruß Smiegel
Ich weiß, daß ich nichts weiß, aber ich weiß mehr als die, die nicht wissen, daß sie nichts wissen. (Sokrates)
|
|
astaria
Hält's aus hier
Beiträge: 10
Win 98, Win XP Prof
D6 Ent
|
Verfasst: Do 12.05.05 14:33
Ganz genau. Verdammt, da hab ich das beim Copy-and-Pasten doch glatt übersehen. Wer schreibt den solche Helpfiles?! Nunja  _________________ Fortunately, I'm adhering to a pretty strict, uh, drug, uh, regimen to keep my mind, you know, uh, limber.
|
|
juergen_21
Hält's aus hier
Beiträge: 3
|
Verfasst: Do 12.05.05 16:02
Danke für die Hilfe,
jetzt klappts.
Habs so gemacht:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
| unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, TeeProcs, TeEngine, Chart, Series;
type
TForm1 = class(TForm)
Chart1: TChart;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
Datenreihe: Array[1..10] of TLineSeries;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var n: integer;
begin
for n:=1 to 10 do
begin
Datenreihe[n] := TLineSeries.Create(nil);
Datenreihe[n].ParentChart := chart1;
Datenreihe[n].AddXY(0, 0);
Datenreihe[n].AddXY(5, 2*n);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
chart1.View3D:=false;
end;
end. |
Dürfte wohl das gleiche sein was Ihr meint.
Gruß
Jürgi
Moderiert von raziel: Code- durch Delphi-Tags ersetzt.
|
|
|
