загрузка текста в мемо НЕ через диалог

[Brabus]

такая вот проблема... мне нужно загрузить в мемо текст из файла, в котором 2 строчки. например
100
56 32 89 3 56 0 0 0 2 3 4 1 67,
но сделать это нужно не через диалог. подскажите пожалуйста как

[Виталий Желтяков]

Memo.Strings.loadfromfile

[Necro]

в смысле файл открыть не через диалог?
например так

f:text;
s:string;
begin
  assignfile(f,'file.txt');
  reset(f);
while not eof(f) do 
   begin
     readln(f,s);
    memo1.lines.add(s);
   end;
  
end;

вы это имели ввиду?

[Brabus]

Necro, да, именно так. Спасибо большое

[Grag]

Brabus, а чем тебе help Желтякова не понравился? Все то же самое, но в одной строке... Кстати, если воспользуешься советом Necro, не забудь закрыть файл... И лучше использовать блок try .... finally... end. Да и мемо перед заполнением неплохо бы почистить, так, на всякий случай, а вдруг там было уже чего перед заполнением...

[Brabus]

Grag, я не знаю что такое "help Желтякова" . а вот такой еще вопрос:
как строку, например
34 63 37 476 221 124 51 6 8 0 12 3
записать в одномерный массив?

[Grag]

Help Желтякова - это то, что тебе подсказал Виталий Желтяков в посте №2
Делай парсинг строки, т.е. каждое число - это "слова" в строке, разделенные пробелом. Вот выделяй каждое такое слово, преобразуй его в число и помещай в массив...

[Brabus]

всё дело в том, что препод мне сказал сделать всё по старинке, как в паскале. типа так всё быстрее работает. а насчет 2-ого моего вопроса не сможете ничего подсказать?

[Serge_Bliznykov]

всё дело в том, что препод мне сказал сделать всё по старинке, как в паскале. типа так всё быстрее работает.

Передайте Вашему преподавателю что он ретроград и сильно заблуждается!
я лично проводил опыты.. метод "по старинке" крайне не быстр...
и уж особенной глупостью выглядит использование компонента TMemo и его метода Lines.Add(s)... это ведь в старом Паскале то же не было.. или тут ничего, можно?! а loadfromfile - ни-ни... это плохо?...
резюмируя. Подобным кодом Вы получаете многострочный/некрасивый и медленный вариант.

а насчет 2-ого моего вопроса не сможете ничего подсказать?

var
  s, sOne : string;
  i, j, k : integer;
  index : integer;
  a : array[1..150] of integer;
  aOne  : integer;
begin
  s := '34 63 37 476 221 124 51 6 8 0 12 3';

  index := 0; {начальный индекс элемента в массиве}

  while length(s)>0 do begin
    k := Pos(' ',s);
    if k>0 then 
        sOne := Copy(s,1,k)
    else 
        sOne := s;
    Delete(s,1, length(SOne));

    {удалим все пробелы из строки sOne}
    while (length(s)>0) and (Pos(' ',sOne)>0) do delete(sOne,Pos(' ',sOne),1);

    val(sOne, aOne, j);
    if j=0 then begin
      inc(Index);
      a[Index] := aOne;
    end;
  end;

  {вывод массива на экран}
  for i:=1 to Index do
    Write(a[i]:1,' ');
  WriteLn;
  Readln;

end.

[Brabus]

Serge_Bliznykov, спасибо вам огромное всё работает