[fpc-pascal] How to know the string type of a variable?

[Michael Van Canneyt]

On Mon, 30 Dec 2013, Marcos Douglas wrote:

> Hi,
>
> Is possible to know what string type of a variable (AnsiString,
> UTF8String, RawByteString, etc)?

You can try

if TypeInfo(S)=TypeInfo(AnsiString) then

etc.

The following program

procedure t(S : String);

begin
   if typeinfo(s)=typeinfo(shortstring) then
     Writeln('ShortString')
   else
     Writeln('Ansistring'); 
end;

begin
   t('');
end.

Prints 
ShortString 
if compiled as-is (fpc mode), and prints 
AnsiString 
if compiled with -S2h (objfpc mode, string=ansistring)

Michael.