Button and Memo (That is all that is needed in this project)
Load the following into a Memo1
something here (12HG)
because we (4R5Y)
need it (6HY9)
I need to first
Loop through and delete all text that is not in the parentheses
Then after that
Loop through and delete all the parentheses ( & )
So that the only thing that is left is the items within the parentheses.
That should be a simple one, but I cannot seem to get the code that I have to work.
Which I was trying to get to look at the ( and delete everything else.
Which will work if you put in http://
But not (
(I do not have to use this code provided, just should that I am trying myself as well)
procedure TForm1.Button1Click(Sender: TObject);
for Q :=Memo1.Lines.Count -1 downto 0 do
if pos( '(', lowercase(Memo1.Lines[Q]) ) = 0