asked on 4/1/2004

string handling

I have a TStringList that contains a list of strings like:

sex
drugs
god
rocknroll

Then i have a procedure that does something for each string in the list with each string in the list,
But i dont need to do it if the string that is indexed contains the the text 'god' or multiple strings i specify,
how do i do that?, I have only programmed in Delphi for 6 months.

begin
strlst := TStringList.Create;
strlst.LoadFromFile('c:\file.txt');
end;
begin
For i := 0 To strlst.Count Do if not strlst[i] = 'god'; // ??? just a guess
Begin
bla := ( strlst[i] );
end;

Delphi

Last Comment

KLOPEKS

4/1/2004

kretzschmar

4/1/2004

begin
For i := 0 To strlst.Count -1 Do
if not strlst[i] = 'god' then // ??? just a guess
Begin
bla := ( strlst[i] );
end;
end;

meikl ;-)

kretzschmar

4/1/2004

oops some brackets missed
corrected:

if not (strlst[i] = 'god') then // ??? just a guess

esoftbg

4/1/2004

For i := 0 To strlst.Count Do
if (Pos('god', strlst[i]) = 0) then
begin
bla := ( strlst[i] );
end;

emil

KLOPEKS

4/1/2004

ASKER

how can i exclude more than one string?

esoftbg

4/1/2004

oops:
For i := 0 To strlst.Count-1 Do

esoftbg

4/1/2004

how can i exclude more than one string?
In anoter stringList ;-))

For i := 0 To strlst.Count-1 Do
if (Pos('god', strlst[i]) = 0) then
begin
slst.Add(strlst[i] );
end;

kretzschmar

4/1/2004

you can have two stringlists, for ex.

add in the seond stringlist the words, which should not act

your evaluation-routine should the show like

begin
for i := 0 to List1.count-1 do
if list2.indexof(list1[i]) = -1 then
bla := list1[i];
end;

meikl ;-)

KLOPEKS

4/1/2004

ASKER

so if i wanted to [not] do the procedure for more than one string i should use ?

For i := 0 To strlst.Count Do
if (Pos('god', strlst[i]) = 0) then
if (Pos('sex', strlst[i]) = 0) then
begin
bla := ( strlst[i] );
end;

ASKER CERTIFIED SOLUTION

esoftbg

4/1/2004

THIS SOLUTION IS ONLY AVAILABLE TO MEMBERS.

View this solution by signing up for a free trial.

Members can start a 7-Day free trial and enjoy unlimited access to the platform.

See Pricing Options

Start Free Trial

KLOPEKS

4/1/2004

ASKER

thanks, you both are a great help!