关于字符串一个很简单，但是非常奇怪的问题

Question

var
    Filename : string;
    ss: ShortString;
  s,s2,s3: AnsiString ;begin
    GetDir(0,Filename);　　　
    ss := '\adre.txt';     
    Filename := Filename + ss;　　
    s2 :='dddd';
　　s3 :='cccccc';　　　
    s := s2+s3;　　　　
end;
前面都很正常，但是一执行完s := s2+s3;之后，s,s2,s3,Filename全部变成了''，程序没有报错，这是为什么，是ＢＵＧ？偶就是不明白，连Filename这个完全不相关的变量，居然也会变成''

Answer 1

再补充一下偶的发现，将s,s2,s3全部申明为shortstring就不会有刚才的问题，也就是说，只有申明成AnsiString,或者string时才会出现那样的问题！

Answer 2

已经自己发现了，很白痴，因为已经是end了，不好意思！！是偶太急了些！