Thanks to both Dennis and Neven for replying
I'll see if they work at the first opportunity.
Thanks again
>
> Joel,
>
> const
> MAXELEMENT = 100;
> var
> s: string;
> a: array [1..MAXELEMENT] of string;
> i, p: Integer;
> begin
> s := 'Happy|Birthday|to|you';
> i := 1;
> repeat
> // Find the next position of the delimiter character
> p := Pos ('|', s);
> if p = 0 then begin
> // Loop terminating condition
> a[i] := s; // Assign remaining characters to next element
> Break;
> end else begin
> // Copy up to (but not including) delimiter into next element
> a[i] := Copy (s, 1, p-1);
> Inc(i);
> // Adjust the string
> s := Copy (s, p+1, Length(s));
> end;
> // Sanity check - so that we don't go past the array bounds.
> until i >= MAXELEMENT;
> end;
>
> I would use TStringList instead of an array;
>
> var
> tsl: TStringList;
> s: string;
> begin
> s := 'Happy|Birthday|to|you';
> // Replace all '|' with line breaks
> s := StringReplace (s, '|', #$0D#$0A, [rfReplaceAll]);
> // Create the object - remember to free it later and use a try - finally
> block.
> tsl := TStringList.Create;
> // Read into the string list (line breaks are the default delimiters)
> tsl.Text := s;
> end;
>
> Hope this helps,
> Dennis.
>
> > -----Original Message-----
> > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
> > Sent: Thursday, 12 April 2001 15:35
> > To: Multiple recipients of list delphi
> > Subject: [DUG]: Parser
> >
> >
> > A newbie question:
> >
> > How is it possible / what is the best way to turn a string containing
> > 'special' characters into an array?
> >
> > IE : 'Happy|Birthday|to|you' becomes
> > Happy
> > Birthday
> > to
> > you
> >
> > (inside an array)
> >
> > TIA
> > -Joel
> >
> > ------------------------------------------------------------------
> > ---------
> > New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> > Website: http://www.delphi.org.nz
> > To UnSub, send email to: [EMAIL PROTECTED]
> > with body of "unsubscribe delphi"
>
> --------------------------------------------------------------------------
-
> New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
> To UnSub, send email to: [EMAIL PROTECTED]
> with body of "unsubscribe delphi"
>
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
