Как разделить строку на отдельные элементы?

[Bane]

Как можно из строковой переменной, где значения записаны так: (11, 44, 1, 24, и т. д.), получить каждое кисло в отдельной ячейке массива???

[superedward]

Спарсить из строки и заносить в массив

type
  TPages=array of integer;

function StrToPages(const Pages: string): TPages;
//Функция перевода строки вида "1-3,5" в массив чисел [1,2,3,5]
var iPage,iCount,iPageFrom,iPageTo: integer;
    sPages,sPage: string;
begin
 if Pages>''then sPages:=StringReplace(Pages,' ','',[])+',';
 iCount:=0;
 SetLength(Result,iCount);
 while Length(sPages)>0do begin
  sPage:=Copy(sPages,1,Pos(',',sPages)-1);
  sPages:=Copy(sPages,Pos(',',sPages)+1,255);
  iPage:=StrToIntDef(sPage,-1);
  if iPage=-1then begin
   iPageFrom:=StrToInt(Copy(sPage,1,Pos('-',sPage)-1));
   iPageTo:=StrToInt(Copy(sPage,Pos('-',sPage)+1,255));
   for iPage:=iPageFrom to iPageTo do begin
    Inc(iCount);
    SetLength(Result,iCount);
    Result[iCount-1]:=iPage
   end
  end else begin
   Inc(iCount);
   SetLength(Result,iCount);
   Result[iCount-1]:=iPage
  end
 end
end;

[northener]

var
  StL : TStringList;
  i : Integer;
  Arr : array of Integerl
  S : string;

.......

begin
  S := '11, 44, 1, 24';
  StL := TStringList.Create;
  try
    ExtractStrings([','], [], PChar(S), StL);
    SetLength(Arr,StL.Count);
    for i := 0 to StL.Count - 1 do
      Arr[i]:=StrToInt(Trim(StL.Strings[i]));
  finally
    StL.Free;
  end;
end;

[XE5]

superedward к чему такие сложности? Всё просто и банально.

procedure TForm1.Button1Click(Sender: TObject);
var TS: TStringList;
begin
TS := TStringList.Create;
TS.DelimitedText := '11, 44, 1, 24';
ShowMessage(TS[0]);
ShowMessage(TS[1]);
end;

[Bane]

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

var
  StL : TStringList;
  i : Integer;
  Arr : array of Integerl
  S : string;

.......

begin
  S := '11, 44, 1, 24';
  StL := TStringList.Create;
  try
    ExtractStrings([','], [], PChar(S), StL);
    SetLength(Arr,StL.Count);
    for i := 0 to StL.Count - 1 do
      Arr[i]:=StrToInt(Trim(StL.Strings[i]));
  finally
    StL.Free;
  end;
end;

Да, все вроде правильно, но он еще лишние значения заносит мне в массив, что с этим делать?

[superedward]

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

superedward к чему такие сложности? Всё просто и банально.

//Функция перевода строки вида "1-3,5" в массив чисел [1,2,3,5]

[Serge_Bliznykov]

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

//Функция перевода строки вида "1-3,5" в массив чисел [1,2,3,5]

Наверняка отличная функция.
Вот только зачем это в данном случае, когда у TC числа, разделённые запятыми?!..


p.s. отвечать не обязательно, вопрос риторический...

[Serge_Bliznykov]

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

Да, все вроде правильно, но он еще лишние значения заносит мне в массив, что с этим делать?

не подтверждаю.
Приведите привер входной строки, при котором подобное происходит.

[Bane]

Я вот делаю так, а все равно, там в массиве после всех нужных значений, появляются много лишних...

procedure TForm7.Button5Click(Sender: TObject);
var
    StL: TStringList;
    sosIng, a, b, c: string;
    i: integer;
    masIng: array of integer;
begin
  sosIng:=Form6.DBGrid1.DataSource.DataSet.FieldByName('IndehIng').AsString;
  StL:= TStringList.Create;
  try
    ExtractStrings([','], [' '], PChar(sosIng), StL);
    SetLength(masIng,StL.Count);
    for i := 0 to StL.Count-1 do
      masIng[i]:=StrToInt(Trim(StL.Strings[i]));
  finally
    StL.Free;
  end;

[superedward]

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

Наверняка отличная функция.
Вот только зачем это в данном случае, когда у TC числа, разделённые запятыми?!..

Просто это уже была готовая функция, в качестве подзадачи решающая и задачу ТС. А дальше у ТС свободный выбор, с какого из предложенных решений отталкиваться для решения своей задачи ))