Преобразование строки в целочисленный массив

[Poma][a]

Я одно не понимаю.. зачем список?

[glazik]

Огромное спасибо всем!

[glazik]

Рома, а какой Ваш вариант?

[Utkin]

Я одно не понимаю.. зачем список?

Затем что лень писать процедуру перегонки в динамический массив из строки. Список умеет быстро.

[Serge_Bliznykov]

Poma][a, имеет в виду, что достаточно пройтись по строке перебором, разделяя строку на отдельные подстроки по пробелу.

Кстати, в вашем вариант переменные str1 и str2 явно ЛИШНИЕ.
Т.е. они мало того, что не нужны, они ещё привели к ошибке (когда Вы вместо str2 написали str1 ). Да и два StringList - тоже роскошь.

в вашем случае достаточно так:

strlist1:=TStringList.create;
strlist1.delimiter := ' ';
strlist1.delimitedtext:=edit1.text;;
SetLength(num1, strlist1.Count);
for i:=0 to strlist1.Count-1 do
  begin
    num1[i]:=strtoint(strlist1[i]);
    showmessage(inttostr(num1[i]));
  end;
{------------------------------------------------------------------------------}
strlist1.delimitedtext:=edit2.text;
SetLength(num2, strlist1.Count);
for i:=0 to strlist1.Count-1 do
  begin
    num2[i]:=strtoint(strlist1[i]);
    showmessage(inttostr(num2[i]));
  end;
strlist1.free;

[eval]

эээ, а что split так и не появился в delphi?
что-то попробовал искать, так вот такие письмена попадаются
http://www.sql.ru/forum/176889/analo...split-v-delphi

[glazik]

  max:=1;
  for i:= 2 to strlist1.Count-1 do
    if num1[i]>num1[max] then max:=i;
  showmessage(inttostr(num1[max]));

Далее пытаюсь в массиве найти максимальный элемент, но программа вылетает.

[doktor255]

но программа вылетает

Не вылетает а аварийно завершается. При этом отладчик возвращает имя ошибки. Колись, какая ошибка.

[Utkin]

эээ, а что split так и не появился в delphi?

В новом со строковыми хелперами кажися есть, там вообще все сильно на c# похоже. Но студентов, особенно двоишников, обычно гоняют на 7-ке.

[Serge_Bliznykov]

Сообщение от glazik

  max:=1;
  for i:= 2 to strlist1.Count-1 do
    if num1[i]>num1[max] then max:=i;
  showmessage(inttostr(num1[max]));

Далее пытаюсь в массиве найти максимальный элемент, но программа вылетает.

Всё, StrList отработал своё и уничтожен (надеюсь!).
Поэтому нужно работать только с самим массивом.
И не забывать, что динамические массивы индексируются (нумеруются) от НУЛЯ! А ещё лучше использовать функции Low и High для получения реальных индексов начального и конечного элементов массива:

  max:= Low(num1);
  for i:= Low(num1)+1 to High(num1) do
    if num1[i]>num1[max] then max:=i;
  showmessage(inttostr(num1[max]));