(Solved)Listbox to array error

[JLWest]

I already have Types in my use clause. I'm doing some graphics.This is copied out of the program.

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

1.  
2.   Type
3.  
4.  TStringDynArray = array of string;
5.  
6. procedure TForm1.GenericArrayLoad(out theArray: TStringdynArray; const aBox: TListBox);
7.  begin
8.    theArray := aBox.Items.ToStringArray;
9.  end;          
10.  

[lucamar]

I already have Types in my use clause [...]

Then you don't need to declare TStringDynArray again; it's already declared inside the Types unit.

[JLWest]

took out the declaration and I still get the error:

unit1.pas(1678,27) Error: identifier idents no member "ToStringArray"

[JLWest]

 AS I understand it theArray := aBox.Items.ToStringArray;    is assigning the tstringlist of the listbox ABOX to a dynamic array. That is if it worked.

Therefore, I should be able to go the other way with something like this:

    Listbox1.items := ToStringArray; ?   

[lucamar]

took out the declaration and I still get the error:

unit1.pas(1678,27) Error: identifier idents no member "ToStringArray"

Strange. Please, test the attached project and see if it also fails; it doesn't here.

AS I understand it the

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

1. Array := aBox.Items.ToStringArray;

is assigning the tstringlist of the listbox ABOX to a dynamic array. That is if it worked.

Therefore, I should be able to go the other way with something like this:

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

1. Listbox1.items := ToStringArray;

No, because ToStringArray is a method of the TStrings class. Besides, think of what that would do: it would destroy the current Items and replace them with ... what?

And what TStrings.ToStringArray does is to get the TStrings strings and copy them over to a dynamic array, a string at a time. That's it.

ETA: This is how it's done, in fact (taken from stringl.inc):

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

1. function TStrings.ToStringArray(aStart,aEnd : Integer): TStringDynArray;
2. Var
3.   I : Integer;
4. begin
5.   Result:=Nil;
6.   if aStart>aEnd then exit;
7.   SetLength(Result,aEnd-aStart+1);
8.   For I:=aStart to aEnd do
9.     Result[i-aStart]:=Strings[i];
10. end;

[JLWest]

ok I will will take a few.

[JLWest]

Same error: unit1.pas(55,26) Error: identifier idents no member "ToStringArray"

I think there is a difference between windows and UNIX.

[Thaddy]

Same error: unit1.pas(55,26) Error: identifier idents no member "ToStringArray"

You need:
1) fpc 3.2.0. Not any older version, in that case YOU made the mistake. Old crap is nice for old people like me, not for starters.
2) include sysutils and types in the uses clause.
3) No, there is no difference between Windows and Linux in this case....
The documentation link assumes 3.2.0 since that is the current release.

[JLWest]

@Thaddy

FPC 3.2.0, Lazarus IDE v2.0.4
 Windows 10 Pro 32-GB
 Intel i7 770K CPU 4.2GHz 32702MB Ram
GeForce GTX 1080 Graphics - 8 Gig

This is my use clause:

uses
  Buttons,  clipbrd,  Classes,   Controls,
  Dialogs,  ExtCtrls, FileUtil,  Forms,
  Graphics, SysUtils, StrUtils,  StdCtrls, Menus,
  Types, LazFileUtils;           

Willing to post the code.               

[Thaddy]

No idea why it does not work for you. I tested it.
But code is always welcome because it makes it a lot easier to help you.
(not only me but also others like Lucamar)

[JLWest]

Ok Thaddy I'lll post. take a bit

[lucamar]

Willing to post the code.               

Yes, please, do it. It should be working, so there must be something else preventing it.

Though for my test project failing for you there must be something very wrong in your installation and that is more difficult to "debug" through forum posts

[JLWest]

You need a sub-dir under the installation dir with two small text files. there are really config files for the program.

It will compile I think but you need the Dataset to run. Willing to post the Dataset. The Dataset is just a bunch of text files, zipped 150KB

[lucamar]

Did you forget to post the code or is it "coming soon"(tm)?

[JLWest]

oh I thought I did. Sorry.