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

[glazik]

Всем привет,

Необходимо из строки вида: "1 2 13 4 5 18" получить целочисленный массив

a[1]:=1
a[2]:=2
a[3]:=13
и т.д.

Как это проще всего реализовать? Заранее спасибо

[Utkin]

Сначала вогнать в TStringlist, потом в цикле IntToStr

[doktor255]

StrToInt то есть

[Utkin]

StrToInt то есть

Ну да, но пусть это будет наша маленькая тайна

[glazik]

StrList:=TStringList.Create;
StrList.Add(edit1.text);

а как дальше?

[FaTaL]

А дальше DelimitedText

[glazik]

var
  Str:TStringList;
  a:array of integer;
  i:integer;
begin
  Str:=TStringList.Create;
  Str.Add(edit1.text);
  Str.Delimiter := ' ';
  str.DelimitedText:=edit1.text;

  for i:=0 to Str.Count-1 do
    begin
      a[i]:=strtoint(str[i]);
      showmessage(str[i]);
    end;
end;

Выдает ошибку, что не так?

[Serge_Bliznykov]

var
  ST:TStringList;
  a:array of integer;
  i:integer;
begin
  ST:=TStringList.Create;
  try
    ST.Delimiter := ' ';
    ST.DelimitedText:=edit1.text;

    SetLength(a, ST.Count);
    for i:=0 to ST.Count-1 do
       a[i]:=strtoint(ST[i]);
  finally
     ST.Free;
  end;

  {теперь, для отладки, выведем массив }
  for i:=Low(a) to High(a)  do
     showmessage( IntToStr(a[i]));
end;

p.s. ВНИМАНИЕ! Проверки на то, что в строке только целые числа тут НЕТ!
Если надо - допишите!

[glazik]

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

Вот как то так, но проблема выводит только первый массив, то есть в едит1 ввел 1 2 3, а во второй 4 5 6, то результат будет 1 2 3 1 2 3

[northener]

strlist2.delimitedtext:=str1;

Внимательней нужно работать с копипастом