Delphi.Строки.Функция.

[Scabby]

(Делфи)Задача состоит в том, что пользователь вводит функцию в типа ax^2+bx+c, например -5х^2+2x+3, а программа должна выводить, допустим в Tlable
a=-5
b=2
c=3

без идей как разбить функцию ax^2+bx+c на токены...
надо записать как-то условия с учетом знаков и т.д.
нуждаюсь в помощи)

[maladoy]

  {
  Str: Строка
  Smb: Разграничительный символ
  WordNmbr: Номер нужного слова
}

function GetWord(Str, Smb: string; WordNmbr: Byte): string;
var
  SWord: string;
  StrLen, N: Byte;
begin

  StrLen := SizeOf(Str);
  N := 1;

  while ((WordNmbr >= N) and (StrLen <> 0)) do
  begin
    StrLen := Pos(Smb, str);
    if StrLen <> 0 then
    begin
      SWord := Copy(Str, 1, StrLen - 1);
      Delete(Str, 1, StrLen);
      Inc(N);
    end
    else
      SWord := Str;
  end;

  if WordNmbr <= N then
    Result := SWord
  else
    Result := '';
end;
procedure form1.button1Click(sender:tObject);
var
st1,st2,st3:string;

begin
st3:=edit1.text;
st1:=getword(st3,'+',1);
st2:=getword(st3,'+',2);
label.caption:='a='+getword(st3,'+',3);
label2.caption:='b='+getword(st1,'x',1);
label3.caption:='c='+getword(st2,'x',1);
end;