Разделение текста на слова

[Sciv]

v:=-1
case a of

Точка с запятой где?!

И прошу прощения, для того, чтоб применить case a of переменная "а" должна быть целочисленная, о чем я глупо забыл Так что, наверное, придется либо делать а целым, либо возвращать Вашу старую запись с кучей if..then. Приношу извинения.

[Corpuscul]

Все равно спасибо, вернуть все как было не составит большого труда . И вот еще хотелось бы узнать про получение в переменные a,b,c значений не используя поле мемо3. Я так понимаю, что в Tstringlist строки хранятся под каким-то индексом, соответственно можно ли их получить не используя переменные d,e,f? Если да, то хотелось бы посмотреть пример хотя бы на одной строчке, как записать правильно не знаю.

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;
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;


end.

[Corpuscul]

Вроде нашел как это сделать, надо попробовать