Считать три числа с одного компонента Edit1.

[Wild_klas]

Есть компонент Edit1. В него нужно ввести такие числа: 0,1 0.1
Нужно считать три разных числа (0) (1) (0.1);
Подскажите пожалуйста, как это реализовать?

[Stilet]

Ну допустим в цикле наполнять массив из того что является цифрами

Var a:array of string;i:integer;
begin
 with Edit1 do
  for i:=1 to Length(Text) do begin
   if text[i] in ['0'..'9','-','.'] then begin
     if not (text[i+1] in ['0'..'9','-','.']) then SetLength(a,Length(s)+1);
     a[high(a)]:=a[high(a)]+text[i];
   end;
  end;
end

А потом (или сразу) конвертируй элементы массива в числа.
Уловил идею? (Я не тестировал код)

[SNUPY]

type
...
  TNumbers = array of Double;
...

procedure M(s: string; var Numbers: TNumbers);
var
  i, j, n: integer;
  d: array of Double;
const
  spacers: array [0..1] of string = (' ', ',');
begin
  s := s + ' ';

  repeat

    j := length(s);

    for i:= low(spacers) to high(spacers) do
    begin

      n := pos(spacers[i], s);

      if (n > 0) and (j > n) then
        j := n;

    end;

    if j>1 then
    begin
      setlength(Numbers, length(Numbers) + 1);
      Numbers[length(Numbers) - 1] := StrToFloat(copy(s, 1, j - 1));
    end;

    Delete(s, 1, j);
  until j <= 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  d: TNumbers;
begin
  M(Edit1.text, d);
  (*
  d[1] := {÷èñëî 1}
  d[2] := {÷èñëî 2}
  ...
  d[n] := {÷èñëî n}
  *)
end;

[Wild_klas]

Идею уловил. В правильном направлении я мыслю?:

Var a:array of string;i:integer;
begin
 with Edit1 do
  for i:=1 to Length(Text) do 
     begin
            if text[i] in ['0'..'9','-','.'] then begin a[i]:=Text[i]

[Stilet]

Почти, только посмотри внимательно как я написал.

[Wild_klas]

Stilet, вы иммеете введу это?:

Var a:array of string;i:integer;
begin
 with Edit1 do
  for i:=1 to Length(Text) do begin
   if text[i] in ['0'..'9','-','.'] then begin  a[high(a)]:=text[i];
    end;
  end;
end.

[Stilet]

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

Нет )
Смотри внимательнее.

[Wild_klas]

Stilet, наверное мне еще рано) Не могу я написать правильно по вашему примеру.
Я сделал немного по другому, тут считует определено 3 числа. Мне так и надо)

var i:integer;
s,s1:string;
begin
s1:=Edit1.Text;
for I:=1 to length(s1) do
begin
if s1[i]=' ' then
begin
s:=copy(s1, 1, (i-1));
min:=StrTofloat(s);
delete(s1,1,i);
break;
end;
end;
for I:=1 to length(s1) do
begin
if s1[i]=' ' then
begin
s:=copy(s1, 1, (i-1));
max:=StrTofloat(s);
delete(s1,1,i);
break;
end;
end;
step:=strtofloat(s1);
end;