2
0
Эх сурвалжийг харах

* array of char+integer is allowed in delphi

peter 23 жил өмнө
parent
commit
399ee48ea7
1 өөрчлөгдсөн 9 нэмэгдсэн , 0 устгасан
  1. 9 0
      tests/tbs/tb0439.pp

+ 9 - 0
tests/tbs/tb0439.pp

@@ -0,0 +1,9 @@
+{$mode delphi}
+
+var
+  a : array[0..32] of char;
+  p : pchar;
+  i : integer;
+begin
+  p:=a+i;
+end.