Не присваивает значение третьей переменной

[Corpuscul]

Доброго времени суток. Не могу понять почему переменной "с" не присваивается значение. Алгоритм работы программы должен быть таков: в некое поле вводится строка цифр/чисел разделенная неким символом программа должна разделить эту строку "по словам" и записать три значения из строки в переменные а,b,c (вводится всего три значения). Вот разделение "по словам"

procedure SplitTextIntoWords(const str: string;
output: Tstringlist; minLength: integer=1{минимальная длина слова});
var
  positionStart, positionEnd: integer;
  wordToAdd: string;
begin
  Assert(Assigned(output));
  output.Clear;
  positionStart := 1;
  while positionStart <= Length(str) do
  begin
    while (positionStart <= Length(str)) and not IsCharAlphaNumeric(str[positionStart]) do
      Inc(positionStart);
    if positionStart <= Length(str) then
    begin
      positionEnd := positionStart + 1;
      while (positionEnd <= Length(str)) and (IsCharAlphaNumeric(str[positionEnd]) or (str[positionEnd]=',')) do
        Inc(positionEnd);
      wordToAdd := Copy(str, positionStart, positionEnd - positionStart);
      if (Length(wordToAdd) >= minLength) then
      begin
        // добавление слова в список
        output.Add(AnsiLowerCase(wordToAdd));
      end;
      positionStart := positionEnd + 1;
    end;
  end;
end;

вот присвоение значений

begin
    words:= TStringList.Create;
  SplitTextIntoWords(edt1.Text,words);
  a:= StrToFloat(words.Strings [0]);
  b:= StrToFloat(words.Strings [1]);
  c:= StrToFloat(words.Strings [2]);

  words.Free;
end;

а вот я решил проверить что присваивается переменным

procedure TForm1.btn1Click(Sender: TObject);
 var words: TStringList; a, b, c: Double;
begin
    words:= TStringList.Create;
  SplitTextIntoWords(edt1.Text,words);
  a:= StrToFloat(words.Strings [0]);
  b:= StrToFloat(words.Strings [1]);
  c:= StrToFloat(words.Strings [2]);

  words.Free;
  tolshina(a);
  mmo3.Lines[0]:= FloatToStr(a) ;
  mmo3.Lines[1]:= FloatToStr(b) ;
  mmo3.Lines[2]:= FloatToStr(c) ;
    end;

в поле появляются значения переменных только а,b
но когда я проверяю всю переменную words появляются все введенные данные.

procedure TForm1.btn1Click(Sender: TObject);
 var words: TStringList; a, b, c: Double;
begin
    words:= TStringList.Create;
  SplitTextIntoWords(edt1.Text,words);
  a:= StrToFloat(words.Strings [0]);
  b:= StrToFloat(words.Strings [1]);
  c:= StrToFloat(words.Strings [2]);
  mmo3.Text:= words.Text;
  words.Free;
  tolshina(a);

    end;

Что у меня не так с кодом?

[Новичок!]

используй
mmo3.Lines.add(FloatToStr(a) );
mmo3.Lines.add(FloatToStr(b) );
mmo3.Lines.add(FloatToStr(c) );
мемо - динамический массив;

[Corpuscul]

Сообщение от Новичок!

используй
mmo3.Lines.add(FloatToStr(a) );
mmo3.Lines.add(FloatToStr(b) );
mmo3.Lines.add(FloatToStr(c) );
мемо - динамический массив;

Я от этого хотел уйти

procedure TForm1.btn1Click(Sender: TObject);
 var words: TStringList; d, e, f: string; a, b, c: Double;
begin
    words:= TStringList.Create;
  SplitTextIntoWords(edt1.Text,words);
   mmo3.Text:=words.Text;
  words.Free;
  d:= mmo3.Lines[0];
  e:= mmo3.Lines[1];
  f:= mmo3.Lines[2];
  a:= StrToFloat(d);
  b:= StrToFloat(e);
  c:= StrToFloat(f);
  tolshina(a);

  end;

То что вы предлагаете равносильно этому

[Corpuscul]

Сообщение от Новичок!

мемо - динамический массив;

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

[Sciv]

Corpuscul, проще было бы уже, если б Вы прикрепили файлы проекта в архиве к сообщению, чтобы можно было на живом примере посмотреть и оттрассировать. Быстрее бы нашлась проблема.

[Corpuscul]

Пожалуйста, смотрите, критикуйте
ggg.rar

Пожалуста, смотритеВот оно.rar

[Новичок!]

в мемо нужно создать сначала эти три строки и потом присваивать им значения, а как только ты создал мемо, там всего 2 строки - ммо3 и энтер и чем тебе не нравится

 mmo3.Lines.add(FloatToStr(a) );
mmo3.Lines.add(FloatToStr(b) );
mmo3.Lines.add(FloatToStr(c) );

??
только в начале очисти мемо

P.S.
у самого была та же фигня: http://programmersforum.ru/showthread.php?t=169534

[Corpuscul]

Спасибо за совет, но меня интересовало можно ли обойтись без поля мемо3. Ведь по большому счету оно выполняет функцию буфера куда переносятся строки из переменной words, а я хотел сразу присвоить этим строкам переменные...

[Sciv]

Что мешает объявить в качестве глобальной переменной какой-нибудь TempStringLisT: TStringList и создавать его по TForm.Create или TForm.OnShow?

[Новичок!]

тогда можно так:

 a:= StrToFloat(words[0]) ;
b:= StrToFloat( words[1] ) ;
c:= StrToFloat( words[2] ) ;