Hi,
wenn der Buffer schon groß genug angelegt wird um alle Werte aufzunehmen, dann könnte man auch mit nur einem einzigen Lesebefehl operieren:
Delphi-Quellcode:
function LoadValues(cs: TChartSeries; fn: TFileName): Integer;
var
s: TStream;
i, n: Integer;
xy: TSingleDynArray;
begin
with TFileStream.Create(fn, fmOpenRead or fmShareDenyWrite) do
begin
SetLength(xy, Size div SizeOf(Single));
ReadBuffer(xy[0], Length(xy));
cs.Clear;
n := Length(xy) div 2;
for i := 0 to Pred(n) do
cs.AddXY(xy[i], xy[i + n]);
Free;
end;
end;
Freundliche Grüße