string - Delete text after specific character

Question

I have the text inside TEdit box: '955-986, total = 32'

How would I delete all text after the comma, so it will only left '955-986'

I tried to limit the TEdit Length, but it's not working as I wanted it to be.

Answer 1

What if there'd be no comma? full non-cut string or empty string ?

Below is your idea of limiting string length, but only applied if at least one comma was found.

var 
    tmpStr:string;
    commaPosition:integer; 
begin
  tmpStr := Edit1.Text;
  commaPosition := pos(',',tmpStr);
  if commaPosition > 0 then begin
     SetLength(tmpStr, commaPosition - 1);
     Edit1.Text := tmpStr;
  end;
end;