不太明白你这个变量y是什么类型的，用于函数调用又是怎么个调用法？
最常用的就是：
procedure TForm1.Button1Click(Sender: TObject);
var y:string;
begin
y:=Memo1.Lines.Strings[0];
end;
其中Strings[0]就是取MEMO的第一行整行字符。第二行就是Strings[1]了，其它的以此类推。
不知道你是要一起放到y中还是象楼上一样一条一条放
如果是一起放可以这样
var
y: array of integer;
begin
SetLength(y, Memo1.Lines.Count);
for i := 0 to Memo1.Lines.Count - 1 do
begin
y[i] := StrToInt(Memo1.Lins.Strings[i]);
end;
end;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024