hedgewars/hwengine.pas
changeset 11775 68f26b6a3a7d
parent 11774 8b17caab10ec
child 11776 c9da8046f618
--- a/hedgewars/hwengine.pas	Fri Apr 29 00:56:04 2016 +0200
+++ b/hedgewars/hwengine.pas	Fri Apr 29 12:11:19 2016 +0200
@@ -52,20 +52,6 @@
 procedure freeEverything(complete:boolean); forward;
 {$ENDIF}
 
-function read1stLn(filePath: shortstring): shortstring;
-var f: pfsFile;
-begin
-    read1stLn:= '';
-    if pfsExists(filePath) then
-        begin
-        f:= pfsOpenRead(filePath);
-        if (not pfsEOF(f)) and allOK then
-            pfsReadLn(f, read1stLn);
-        pfsClose(f);
-        f:= nil;
-        end;
-end;
-
 // TODO localization support
 procedure ShowCredits();
 var themeCredits, mapCredits: shortstring;