{Solved] IndexStr() - identifier not found

[HappyLarry]

I have put StrUtils in my uses section and I know this is Ok because I can successfully use wordcount(). However, I get the message 'identifier not found IndexStr' when I use IndexStr (so it's not that I am using it incorrectly)

I've tried using strutils.IndexStr but I get the same message

Anyone else had this problem?

[dsiders]

I have put StrUtils in my uses section and I know this is Ok because I can successfully use wordcount(). However, I get the message 'identifier not found IndexStr' when I use IndexStr (so it's not that I am using it incorrectly)

I've tried using strutils.IndexStr but I get the same message

Anyone else had this problem?

You haven't told us which version of FPC you're using, or provided any code to help diagnose the problem.

My WAG is that you're not calling it with the correct data types for the arguments, and it can't figure out which of the overloads it needs to use. One uses: String and Array of String. The other: UnicodeString and Array of UnicodeString.

Hope that helps...

[lucamar]

If you're using Lazarus, what happens when you Ctrl-Click on IndexStr? Where does it takes you or what error (if any) shows?

And which version of Lazarus/FPC?

Finally, what happens if you try this:

Code: Pascal  [Select][+][-]

1.   ShowMessageFmt('IndexStr says: %d',
2.                  [IndexStr('string', ['an','array', 'of', 'string' ])]);
3. {or, for a console program:
4.   WriteLn('IndexStr says: ',
5.           IndexStr('string', ['an','array', 'of', 'string' ]));
6. }
7.  

(Note: Both should compile and show 'IndexStr says: 3')

[winni]

Hi!

Line 48 in StrUtils.

Code: Pascal  [Select][+][-]

1. Function IndexStr(const AText: UnicodeString; const AValues: array of UnicodeString): Integer;  

Robbery in your StrUtils ??

Winni

[lucamar]

In FPC 3.2.0 that's line 58, and further down, in line 65:

Code: Pascal  [Select][+][-]

1. function IndexStr(const AText: string; const AValues: array of string): Integer; inline;

BTW, I always receive a warning about that inline (the usual "will not be inlined") but that is irrelevant in this case

What I don't know is what would happen if one mixed types, say, passing a UnicodeString and an array of AnsiString; which variant would it try first? Hmmm ... that's worth testing ... tomorrow 

[HappyLarry]

@dsiders
I am using Lazarus 1.6  +dfsg-1
FreePascal 3.0.0
Code (strutils is in uses already)

Code: Pascal  [Select][+][-]

1. procedure TForm1.Button2Click(Sender: TObject);
2. var
3.   S:string;
4.   p:integer;
5. begin
6.   S:='abcdefghi';
7.   p:=IndexStr(S,['f']);
8.   memo1.lines.add('Position is  '+inttostr(p));
9. end;

The error is 'identifier not found IndexStr'

@lucamar
PCW 8256 !!! Wow! I had one of those back in '87. (1987 that is). No mouse, no hard disk, Locoscript word pprocessor, no Windows - a PROPER computer.

You code doesn't compile. Error message : 'identifier IndexStr not found'

@winni
For me, there is no IndexStr at line 48 of strutils

Code: Pascal  [Select][+][-]

1. [code=pascal]unit strutils;
2.  
3. interface
4.  
5. uses
6.   SysUtils{, Types};
7.  
8. { ---------------------------------------------------------------------
9.     Case insensitive search/replace
10.   ---------------------------------------------------------------------}
11.  
12. Function AnsiResemblesText(const AText, AOther: string): Boolean;
13. Function AnsiContainsText(const AText, ASubText: string): Boolean;
14. Function AnsiStartsText(const ASubText, AText: string): Boolean;
15. Function AnsiEndsText(const ASubText, AText: string): Boolean;
16. Function AnsiReplaceText(const AText, AFromText, AToText: string): string;inline;
17. Function AnsiMatchText(const AText: string; const AValues: array of string): Boolean;inline;
18. Function AnsiIndexText(const AText: string; const AValues: array of string): Integer;
19.  
20. { ---------------------------------------------------------------------
21.     Case sensitive search/replace
22.   ---------------------------------------------------------------------}
23.  
24. Function AnsiContainsStr(const AText, ASubText: string): Boolean;inline;
25. Function AnsiStartsStr(const ASubText, AText: string): Boolean;
26. Function AnsiEndsStr(const ASubText, AText: string): Boolean;
27. Function AnsiReplaceStr(const AText, AFromText, AToText: string): string;inline;
28. Function AnsiMatchStr(const AText: string; const AValues: array of string): Boolean;inline;
29. Function AnsiIndexStr(const AText: string; const AValues: array of string): Integer;
30.  
31. { ---------------------------------------------------------------------
32.     Miscellaneous
33.   ---------------------------------------------------------------------}
34.  
35. Function DupeString(const AText: string; ACount: Integer): string;
36. Function ReverseString(const AText: string): string;
37. Function AnsiReverseString(const AText: AnsiString): AnsiString;inline;
38. Function StuffString(const AText: string; AStart, ALength: Cardinal;  const ASubText: string): string;
39. Function RandomFrom(const AValues: array of string): string; overload;
40. Function IfThen(AValue: Boolean; const ATrue: string; const AFalse: string = ''): string; overload;
41.  
42. { ---------------------------------------------------------------------
43.     VB emulations.
44.   ---------------------------------------------------------------------}
45.  
46.  
47. Line 48 is just above the "Miscellaneous' comment[code=pascal]

This probably explains why the InndexStr is not being found! But why is it missing? I hanen't altered it - I have never looked at strutils until your suggestion. looking through strutils, I can't find IndexStr at all. It looks like someone has stolen it.

[PascalDragon]

Would you please compile with -vu (will generate lots of hidden output in Lazarus that you need to copy using the context menu Copy -> Copy All/Original Messages) and check whether the compiler uses the real StrUtils unit? It could be that there simply is another unit with the same name that the compiler picks up first.

[HappyLarry]

The code below with ANSISTRING (instead of string) works:

Code: Pascal  [Select][+][-]

1. procedure TForm1.Button2Click(Sender: TObject);
2. var
3.   p:integer;
4. begin
5.   ShowMessageFmt('IndexStr says: %d',
6.                   [AnsiIndexStr('string', ['an','array', 'of', 'string' ])]);
7.  
8.   p:=AnsiIndexStr('f',['a','b','c','d','e','f','g','h','i']);
9.   memo1.lines.add('Position is  '+inttostr(p));
10. end;

My conclusion is that IndexStr() may be missing from strutils in fp3.0.0.

@PasclDragon
I get Lazarus from the Ubuntu repository, I don't compile it myself. I have only installed it once.

[PascalDragon]

I get Lazarus from the Ubuntu repository, I don't compile it myself. I have only installed it once.

That's not what I'm asking. I ask you to compiler your code with that option (see Project Settings -> Compiler Settings -> Debugging) and check the output. This will tell you what units the compiler is looking for and my suspicion is that somewhere in the search paths that the IDE passes along there is a rogue StrUtils (though it's strange in that case that AnsiIndexStr works...).

Can you test a stupidly simple program and compile it on the command line:

Code: Pascal  [Select][+][-]

1. program test;
2.  
3. {$mode objfpc}{$H+}
4.  
5. uses
6.   StrUtils;
7.  
8. var
9.   i: LongInt;
10. begin
11.   i := IndexStr('beta', ['alpha', 'beta', 'gamma']);
12. end.

You should be able to compile it with fpc test.pas. If it does not work, please compile it with fpc -vu test.pas. If it does compile however then it means that something in your project's settings is messed up.

[Bart]

Fpc 3.0.0 indeed dos NOT have IndexStr in StrUtils unit.
See: https://svn.freepascal.org/cgi-bin/viewvc.cgi/tags/release_3_0_0/packages/rtl-objpas/src/inc/strutils.pp?view=markup

It was introduced in fpc 3.0.2.

So, HappyLarry should update his compiler (and/or Lazarus).

Bart

[PascalDragon]

Fpc 3.0.0 indeed dos NOT have IndexStr in StrUtils unit.

Must have missed that HappyLarry still uses 3.0.0... Thanks for looking that up!

[HappyLarry]

So the mystery is solved!
Thanks to dsiders, lucamar, winni, PascalDragon and bart for their help.

[lucamar]

Well, at least you've got AnsiIndexStr() in 3.0.0, which does exactly the same. Except if you use UnicodeString, of course