In our previous episode, Michael Van Canneyt said:
>
> procedure t(S : String);
>
> begin
> if typeinfo(s)=typeinfo(shortstring) then
> Writeln('ShortString')
> else
> Writeln('Ansistring');
> end;
>
> begin
> t('');
> end.Thank you, I saved it to my obfuscated Pascal mailfolder :-) _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
