Pascal and Delphi

Pascal and Delphi RSS

convert string to array

Please support our Pascal and Delphi advertiser: Programming Forums - DaniWeb Sister Site

Thread Solved

•

Join Date: Feb 2009

Posts: 24

Reputation: yssirhc is an unknown quantity at this point

Solved Threads: 0

yssirhc

Offline

Newbie Poster

convert string to array

Mar 11th, 2009

I've stored an array in an html hidden input and now need to transfer that array to my delphi function. I've tried:

 Help with Code Tags 
 delphi Syntax (Toggle Plain Text) 
var
  fileArray : array of string;
 
fileArray := formvar('fileArray', '');
var
  fileArray : array of string;

fileArray := formvar('fileArray', '');

but this gives an incompatible types error when I compile. How can I convert the string into an array so that it can be stored in the variable? Also, if it helps, the formvar fileArray is comma delimited.

•

Join Date: Nov 2007

Posts: 68

Reputation: jsosnowski is an unknown quantity at this point

Solved Threads: 11

jsosnowski jsosnowski is offline

Offline

Junior Poster in Training

Re: convert string to array

Mar 11th, 2009

IS "formvar" part of Delphi or your own method? I could not find a reference for it and am not familiar with it. Either way, what is the declaration for the function? Have you looked at tstringlist?

Also check out extractstrings in the Classes unit.

•

Join Date: Feb 2009

Posts: 447

Reputation: FlamingClaw will become famous soon enough

Solved Threads: 106

FlamingClaw FlamingClaw is offline

Offline

Posting Pro in Training

Re: convert string to array

Mar 11th, 2009

Put that string in a variable.

 Help with Code Tags 
 pascal Syntax (Toggle Plain Text) 
var a:String;
 
{in pascal,strings can be handle as array}
{example} 
a:= 'Hello';
 
a[0]:= 5;   {this is a number of chars,here:5}
a[1]:='H';
a[2]:='e';
a[3]:='l';
a[4]:='l';
a[5]:='o';
var a:String;

{in pascal,strings can be handle as array}
{example} 
a:= 'Hello';

a[0]:= 5;   {this is a number of chars,here:5}
a[1]:='H';
a[2]:='e';
a[3]:='l';
a[4]:='l';
a[5]:='o';

Last edited by FlamingClaw; Mar 11th, 2009 at 5:35 pm.

•

Join Date: Feb 2009

Posts: 447

Reputation: FlamingClaw will become famous soon enough

Solved Threads: 106

FlamingClaw FlamingClaw is offline

Offline

Posting Pro in Training

Re: convert string to array

Mar 11th, 2009

or see my another example:

 Help with Code Tags 
 pascal Syntax (Toggle Plain Text) 
 
Program StringIntoArray;
 
Uses Crt;
Const max = 11;
Var S:String[max];
    i:Byte;
    size:Byte;
    Ar:Array[1..max]of Char;
 
 
Begin {main}
     ClrScr;
     Write('Give me the word,max 11 char: ');
     ReadLn(S);
     size:=Length(S);
     For i:=1 To size Do
        Begin
           Ar[i]:=S[i];
           If (i = size) Then Break;
        End;
 
     {Now write the results}
     For i:=1 To size Do WriteLn(Ar[i]);
 
     ReadKey;
End. {main}
(*Created By FlamingClaw 2009.03.11*)
Program StringIntoArray;

Uses Crt;
Const max = 11;
Var S:String[max];
    i:Byte;
    size:Byte;
    Ar:Array[1..max]of Char;


Begin {main}
     ClrScr;
     Write('Give me the word,max 11 char: ');
     ReadLn(S);
     size:=Length(S);
     For i:=1 To size Do
        Begin
           Ar[i]:=S[i];
           If (i = size) Then Break;
        End;

     {Now write the results}
     For i:=1 To size Do WriteLn(Ar[i]);

     ReadKey;
End. {main}
(*Created By FlamingClaw 2009.03.11*)

•

Join Date: Nov 2007

Posts: 68

Reputation: jsosnowski is an unknown quantity at this point

Solved Threads: 11

jsosnowski jsosnowski is offline

Offline

Junior Poster in Training

Re: convert string to array

Mar 12th, 2009

FlamingClaw,

You could also use "absolute" to align the two variables in memory by declaring:

 Help with Code Tags 
 Pascal and Delphi Syntax (Toggle Plain Text) 
Var
  S : string;
  B : Array of Byte Absolute S;
Var
  S : string;
  B : Array of Byte Absolute S;

This allows you to read and write to the string or array using the same memory area. It is similar to Union in C++.

But I do not think this is what yssirhc is after.

•

Join Date: Feb 2009

Posts: 447

Reputation: FlamingClaw will become famous soon enough

Solved Threads: 106

FlamingClaw FlamingClaw is offline

Offline

Posting Pro in Training

Re: convert string to array

Mar 13th, 2009

'jsosnowski'

I think you did not understand me.I'm not speaking of number of bytes of a string...
If you have a string then you can put it into an array if you divide that string for characters...In my above example,that's a pascal example,can be look that....
But if we speaking about delphi then see the down link for more information...
http://delphi.about.com/cs/adptips20...ltip1102_5.htm

Last edited by FlamingClaw; Mar 13th, 2009 at 8:30 am.

•

Join Date: Feb 2009

Posts: 24

Reputation: yssirhc is an unknown quantity at this point

Solved Threads: 0

yssirhc

Offline

Newbie Poster

Re: convert string to array

Mar 18th, 2009

I thought formVar was part of Delphi, but as you can probably tell I'm not all that familiar with this language & didn't write that part of the code.

Using a TStringList worked well though.

 Help with Code Tags 
 delphi Syntax (Toggle Plain Text) 
fileList := TStringList.Create;
fileList.CommaText := formvar('fileArray', '');
for count := 0 to fileList.Count-1 do
fileList := TStringList.Create;
fileList.CommaText := formvar('fileArray', '');
for count := 0 to fileList.Count-1 do