🚀 go-pugleaf

I can write the code for you quite quickly, but why would you want this
array style?

Marco van de Voort <marcov@toad.stack.nl> wrote in message
news:slrn8kbock.1i2m.marcov@toad.stack.nl...
> >>   tString = Record
> >>     Case Boolean Of
> >>       True: (AsStr :String);
> >>       False: (AsByte :Byte; AsChar :Array[0..253] Of Char);
> >>   End;
> >
> >> In your program, you can either reference "tString.AsStr" as a string
type,
> >> or reference it as "AsByte" and "AsChar" to get the length (AsByte) and
it's
> >> contents (AsChar).  This means you can use the PChar routines on
> >> tString.AsChar (as long as you remember to update AsByte with the
string
> >> length). You can empty the string by "tString.AsStr := '';" or
> >
> >You'll also need to make sure that you write a terminating #0 byte each
time
> >you modify the string, if you want to use it with PChar routines.
>
> Now we are on this topic, does somebody have a unit for modula2 styled
> array of char ?
>
> This is zero terminated, except when the array is full (then length is
> sizeof/high(x)), which allows the last char to be used for text.
>
>
>