Feld aus Memokomponente in Excel einfügen

[kevflg]

bin jetzt ein Stück weiter.

type Feld=array[0..255] of real;
procedure ButtonBla
var oleArray: OleVariant; i,n:integer; f:Feld;
begin
n:=Memobox1.lines.count;
for i=0 to n-1 do f[i]:=StrToFloat(Form1.memo1.lines[i]);
OleArray:=VarArrayCreate([0,n-1],varVariant);

for i=0 to n-1 do begin
OleArray[i]:=f[i];
end;
ExcelWorksheet1.range['A1','A20'].value:=OleArray;