IStringList...

[cdbc]

Hi
Well, I finally got my shijt together and done it 
edit: new version out now 11.27.08.2025 which adds 6 new overloaded features 'LoadFromStreamEx' & 'SaveToStreamEx' to 'IStrings' along with a correction of compiler defines (see last post).
For the longest time I've been missing an easy no frills way to do this:

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

1. procedure TfrmIntfMain.btnUtf8Click(Sender: TObject);
2. var lst: IStringList;
3. begin
4.   if dlgOpen.Execute then begin
5.     lst:= CreateStrList;
6.     lst.LoadFromFile(dlgOpen.FileName);
7.     // do some processing of lst-data
8.     Memo1.Clear;
9.     Memo1.Caption:= lst.Text;
10.   end;
11. end;

I mean without

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

1. sl:= TStringlist.Create;
2. try
3.   // use the list
4. finally
5.   sl.Free;
6. end;

...and now finally(pun intended) I can 
You too if you so desire, I've made it public (i think) on my gitlab.
It's free for anyone to download and use, in the hope it can be of use to others.
Mind you, I'm not proficient in /gitlab'ing/ so I've tried my best to make it public...
Here it is: https://gitlab.com/cdbc-public/ibcstringlist
Enjoy 
Regards Benny

[Thaddy]

Benny, I am working on a small utility that parses a class for public methods and writes a COM based interface from that. Then rewrites the class header to include that interface. I will ping you when ready.
( I wanted that for years and picked it up again literally yesterday )

[cdbc]

Hi Thaddy
Cool, that I'll be looking forward to 
...And today being today, I'll consider it a birthday-present, thank you 

( I wanted that for years and picked it up again literaly yesterday )

I know exactly what you mean, but something always came up...
Regards Benny

[Thaddy]

Happy Birthday!

[cdbc]

Thanks mate

[indydev]

This is nice! Now if I can put this and Thaddy's Smart Pointer example,

https://forum.lazarus.freepascal.org/index.php/topic,59468.msg443427.html#msg443427

to use 

[cdbc]

Hi
@indydev: notice the 'List' property/function... You can stick that anywhere, that expects a 'TStrings/TStringList' param 
Have fun 
Regards Benny

[Roland57]

Hello! Interesting but I cannot compile:

Compiling strip_v2.lpr
Compiling istrlist.pas
istrlist.pas(37,23) Fatal: Can't find unit sortbase used by istrlist
Fatal: Compilation aborted

[cdbc]

Hi Roland
'sortbase.pp' is located here: ".../fpcsrc/rtl/inc/", on my install of trunk.
Hang on, I'll check with 3.2.2...
edit: Damn, it looks like I'm going to have to "ifdef" some parts of 'istrlist.pas', to fit both fpc-trunk & fpc-3.2.2 I'll get right on that...
Sorry mate    I'll report back here when I'm done 
Regards Benny

[Roland57]

'sortbase.pp' is located here: ".../fpcsrc/rtl/inc/", on my install of trunk.
Hang on, I'll check with 3.2.2...

Thanks for your answer. After I copied the sortbase unit in my directory, I get this:

Free Pascal Compiler version 3.2.2 [2021/05/16] for x86_64
Target OS: Linux for x86-64
Compiling strip_v2.lpr
Compiling istrlist.pas
Compiling sortbase.pp
istrlist.pas(136,33) Error: Identifier not found "RTLString"

[cdbc]

Hi
...Yeah got those too, when I tried to compile a simple example in fpc-3.2.2, there are a few... that particular one is just a string.
I'll start /IfDef'ing/ now, will report back here, when I'm done...
Hmmm, thought it over and with talks about a 3.2.4-fixes, I think I'll create an "istrlist322" for now and then maybe ifdef the real McCoy later... What do you think?!?
Sorry Mate 
Regards Benny

[Roland57]

I think I'll create an "istrlist322"

Good! If you have time. 

[cdbc]

Hi
Right, so I've /ifdef'ed/ a working copy and it compiles in both trunk and 3.2.2
What remains is the *GitLab'ing* business 
I'll let you know when the new version is merged...
Regards Benny

[cdbc]

Hi
Roland there's a new version in GitLab, 4.31.05.2024, that now properly supports fpc v 3.2.2 
This, of course goes for all others too, that wish to try it out.
Have fun & Enjoy 
Regards Benny

[Roland57]

Test successful. Thanks!