[tabivan]

Сообщение от Страдалецъ

Если я правильно понял вам неужно вот что:

Код:

Var
  SL: TStringList;
begin
 SL := TStringList.Create;
 SL.Delimiter := '/';
 SL.LoadFromFile('c:\Test.txt');
 SL.DelimitedText := SL.Text;
 Memo1.Text := SL.Text;
 SL.Free;
end;

Подскажите юзеру как в массив положить строки?