[Sergi_08]

Добрый день всем...
Есть проблема чтения числового одномерного массива из компоненты Edit..
Числа вводятся через пробел, нужно их внести в массив для дальнейшей обработки(сортировки)
Всем спасибо

[M.A.D.M.A.N.]

тебе надо бежать по пробелам и копировать значения между ними

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

function FillArrayFromString(Text:String;Buff:array of Integer):Boolean; var _pos:Word;     _text:String;     index:word;     BuffPos:Integer; begin   Result:=False;   _text:=text;   BuffPos:=0;   If _Text[Length(_Text)]<>' ' Then _Text:=_Text+' ';   For Index:=0 To Length(_text) Do     Begin       If _text[Index]<>' ' Then Continue;       Try         Buff[BuffPos]:=StrToInt(Copy(_text,1,Index));         Delete(_text,1,index);       Exscept         Result:=False;         Exit;       End;       Inc(BuffPos);     End; end;

[Sergi_08]

Все сделал как написано...но при использовании этой функции возникает шибка. Например после ввода
12 4 5 6
EConvertMessage with error "12'is not valid integer value'.

[M.A.D.M.A.N.]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

function FillArrayFromString(Text:String;Buff:array of Integer):Boolean; var _pos:Word;     _text:String;     index:word;     BuffPos:Integer; begin   Result:=False;   _text:=text;   BuffPos:=0;   If _Text[Length(_Text)]<>' ' Then _Text:=_Text+' ';   Index:=0;   While Index<Length(_text) Do     Begin       Inc(Index);       If _text[Index]<>' ' Then Continue;       Try         Buff[BuffPos]:=StrToInt(Copy(_text,1,Index-1));         Delete(_text,1,index);         Index:=0;       Except         Result:=False;         Exit;       End;       Inc(BuffPos);     End; end;

[Drozh]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

<b>function</b> StrToMas(<b>const</b> Source: <b>String</b>; <b>var</b> Buf: <b>array of</b> Integer): Boolean; <b>var</b>  i, iPos: Integer;  Dest: <b>String</b>; <b>begin</b>  Result := False;    Dest := Trim(Source) + ' ';  iPos := Pos(' ', Dest);  i := Low(Buf);     <b>while</b> iPos <> 0 <b>do</b>   <b>begin</b>     <b>if</b> <b>not</b> TryStrToInt(Trim(Copy(Dest, 1, iPos-1)), Buf[i]) <b>then</b>      Exit;      Delete(Dest, 1, iPos);    iPos := Pos(' ', Dest);    Inc(i);   <b>end</b>;    Result := True; <b>end</b>;