Want to win a PS4? Go Premium and enter to win our High-Tech Treats giveaway. Enter to Win

x
?
Solved

Question Title: Clear Text From Memo ( Text in .dll file )

Posted on 2004-09-22
2
Medium Priority
?
570 Views
Last Modified: 2010-04-05
I understand how it is hard to really grasp what someone is talking about,
So I have put together a Demo, to show what is going on.
Please read the "TLabel" on the "TPanel" located at the bottom
Of the Projects Form.
================
this Demo extracts links from a web page.
And then there is 2-Buttons that allow you to
Strip out unwanted text/links.

1st Button : Hard Coded links are added
To the Buttons.OnClick; and when pressed it clears out the
links that are listed. ( It does not always clear out the full
Link address, but I am using something else that does this as well, so this is not an issue in this demo )
( 1st Button Hard Coded, : Works liks a charm )

2nd Button: Reads from a TMemo that is getting it's information from a [ .dll ] file, that is storing all the URL's that you want to delete.
( 2nd Button will only work on " Limited " amount of links located in the " Extracted Links Memo "
Once you go over several links, it is rendered usless.
This is where this guestion comes in at, Can someone help
To resolve this issue with the .dll file and large clearing of lines ? )
 
================
Demo uses:
   TEmbeddedWB...
Is you do not have this component, please remove the following from
The Uses.
SHDocVw_TLB, EmbeddedWB,

And then replace with the TWebBrowser Control.
Default..... WebBrowser1         ....  has been used in this project.
To make it simplier for those to convert over to it's component name.

Thank You
For any help that you may be able to assist me with,

Please click on link to start download...
http://www.carrz-fox-fire.com/Delphi/Examples.zip

Wayne
0
Comment
Question by:Wayne Barron
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
2 Comments
 
LVL 6

Accepted Solution

by:
vadim_ti earned 400 total points
ID: 12122763
may be you need

for i:=0 to kill_list.Lines.Count-1 do
Memo1.Text := StringReplace(Memo1.Text, ''+kill_list.Lines[i]+'', '',
[rfReplaceAll, rfIgnoreCase]);


in your Button2Click procedure
0
 
LVL 31

Author Comment

by:Wayne Barron
ID: 12122838
Thank You: [vadim_ti];

Dag on, how simple was that :-)

Thank you very much. I have just been doing so much
Her at the office that I just could not think straight on this code.

Thank you so very much.

carrzkiss
0

Featured Post

[Webinar] Lessons on Recovering from Petya

Skyport is working hard to help customers recover from recent attacks, like the Petya worm. This work has brought to light some important lessons. New malware attacks like this can take down your entire environment. Learn from others mistakes on how to prevent Petya like worms.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

The uses clause is one of those things that just tends to grow and grow. Most of the time this is in the main form, as it's from this form that all others are called. If you have a big application (including many forms), the uses clause in the in…
Introduction The parallel port is a very commonly known port, it was widely used to connect a printer to the PC, if you look at the back of your computer, for those who don't have newer computers, there will be a port with 25 pins and a small print…
Visualize your data even better in Access queries. Given a date and a value, this lesson shows how to compare that value with the previous value, calculate the difference, and display a circle if the value is the same, an up triangle if it increased…
In this video, Percona Director of Solution Engineering Jon Tobin discusses the function and features of Percona Server for MongoDB. How Percona can help Percona can help you determine if Percona Server for MongoDB is the right solution for …
Suggested Courses

636 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question