program Project1;
{$DEFINE PUREPASCAL}
{$APPTYPE CONSOLE}

uses
 windows;

var
 a:ansistring;
 r:rawbytestring;
 u:unicodestring;
 w:widestring;
 s:shortstring;

 i,j,x,t:cardinal;
begin

   s:='This is a test';
   t:=GetTickCount;
   for i:=0 to 100000 do begin
     s:=' ';
     for j := 0 to 250 do begin
      s:=s+' ';
     end;
   end;
   x:= GetTickCount-t;
   writeln('shortstring=',x);

   a:='This is a test';
   t:=GetTickCount;
   for i:=0 to 100000 do begin
     a:=' ';
     for j := 0 to 250 do begin
      a:=a+' ';
     end;
   end;
   x:= GetTickCount-t;
   writeln('ansistring=',x);

   r:='This is a test';
   t:=GetTickCount;
   for i:=0 to 100000 do begin
     r:=' ';
     for j := 0 to 250 do begin
      r:=r+' ';
     end;
   end;
   x:= GetTickCount-t;
   writeln('rawbytestring=',x);

   u:='This is a test';
   t:=GetTickCount;
   for i:=0 to 100000 do begin
     u:=' ';
     for j := 0 to 250 do begin
      u:=u+' ';
     end;
   end;
   x:= GetTickCount-t;
   writeln('unicodestring=',x);

   w:='This is a test';
   t:=GetTickCount;
   for i:=0 to 100000 do begin
     w:=' ';
     for j := 0 to 250 do begin
      w:=w+' ';
     end;
   end;
   x:= GetTickCount-t;
   writeln('widestring=',x);

   Readln;
end.