Просмотр исходного кода

* constant string to widechar added

peter 24 лет назад
Родитель
Сommit
f7f398a59e
1 измененных файлов с 2 добавлено и 0 удалено
  1. 2 0
      tests/tbs/tb0349.pp

+ 2 - 0
tests/tbs/tb0349.pp

@@ -8,4 +8,6 @@ begin
    p:=@c1;
    i:=0;
    c2:=p[i];
+   p:='';
+   p:='hello';
 end.