Przeglądaj źródła

Merged revisions 63 via svnmerge from
/trunk

git-svn-id: branches/fixes_2_0@356 -

peter 20 lat temu
rodzic
commit
3b56653850
2 zmienionych plików z 15 dodań i 0 usunięć
  1. 1 0
      .gitattributes
  2. 14 0
      tests/webtbs/tw3827.pp

+ 1 - 0
.gitattributes

@@ -5892,6 +5892,7 @@ tests/webtbs/tw3805.pp svneol=native#text/plain
 tests/webtbs/tw3812.pp svneol=native#text/plain
 tests/webtbs/tw3814.pp svneol=native#text/plain
 tests/webtbs/tw3821.pp svneol=native#text/plain
+tests/webtbs/tw3827.pp svneol=native#text/plain
 tests/webtbs/tw3833.pp svneol=native#text/plain
 tests/webtbs/tw3840.pp svneol=native#text/plain
 tests/webtbs/tw3863.pp svneol=native#text/plain

+ 14 - 0
tests/webtbs/tw3827.pp

@@ -0,0 +1,14 @@
+{ Source provided for Free Pascal Bug Report 3827 }
+{ Submitted by "Thomas Schatzl" on  2005-03-25 }
+{ e-mail:  }
+{$MODE DELPHI}
+
+uses
+  sysutils;
+  
+var
+  guid : tguid;  
+
+begin
+  CreateGUID(guid);
+end.