delphi - Trying to remove all vowels from a phrase -

delphi - Trying to remove all vowels from a phrase -

i trying create programme remove vowels sentence or phrase. don't syntax error, when add together word 'cool' or more 2 vowels next each other, not of them removed. why this? here code:

procedure tform1.btnprocessclick(sender: tobject); var sentence: string; k : integer; begin sentence :=uppercase(edtsentence.text); k := 1 length(sentence) if (sentence[k] in ['a', 'e', 'i', 'o', 'u']) begin delete(sentence,k,1); lbloutput.caption := sentence; end;

you counting when deleting instead of counting down.

your loop should read :-

for k := length(sentence.text) downto 1 do

delphi delphi-xe