из memo в массив

[RAVAL))]

Как из Memo каждую строчку поместить в массив

[Sazary]

А в массив чего?
Как-нибудь так:

procedure TForm1.Button2Click(Sender: TObject);
var i : integer;
mas : array[1..10] of string;
begin
for i:=1 to Memo1.Lines.Count do
 mas[i] := Memo1.Lines.Strings[i-1];
end;

[Alar]

Sazary, спасибо за ответ, хотя я не понимаю, RAVAL)), в чём сложность? в memo данные и так структурированы в виде массива строк.

mas : array[0..999] of string;
for i:=0 to Memo1.Lines.Count-1 do
 mas[i] := Memo1.Lines.Strings[i];
end;

я бы так написал . нумерация строк в мемо начинается с нуля, потому как-то привычнее

[Ntlegend]

TStringList - это и есть массив строчек..
к каждой строке можна обратиться так Memo1.Lines.Strings[i] где i - номер строки (начиная с 0)

[SERG1980]

Не ну надо так надо, только массив лучше сделать динамическим