ich bin gerade etwas mit Diagrammen rumspielen und möchte jetzt eine beliebige Anzahl von Funktionen darstellen. Wichtig dabei ist, dass man diese zur Laufzeit erzeugen kann.
Bisher sieht der Code so aus:
Code: Alles auswählen
implementation
var
Chart_Series: array of TBarSeries;
{$R *.lfm}
{nicht relevanter Code}
procedure TFCollatz.MenuItem_LoadNewClick(Sender: TObject);
var
tf: textfile;
filename: string;
c, n: QWord;
i: word;
begin
filename := InputBox('New Graph', 'Filename:', '');
if fileexists(filename)
then begin
i := length(Chart_Series);
setlength(Chart_Series, i + 1);
Chart_Series[i] := TBarSeries.Create(Chart); //mit Self als Owner geht auch nicht
assignfile(tf, filename);
reset(tf);
repeat
readln(tf, c);
readln(tf, n);
Chart_Series[i].AddXY(c, n);
until eof(tf);
closefile(tf);
end;
end;
Allerdings werden die Graphen nicht angezeigt. Fehlermeldungen gibt es nicht, aber es passiert nichts.
Vielen Dank im Voraus :)