equal
deleted
inserted
replaced
25 {$IFDEF GLES11} |
25 {$IFDEF GLES11} |
26 gles11, |
26 gles11, |
27 {$ELSE} |
27 {$ELSE} |
28 GL, |
28 GL, |
29 {$ENDIF} |
29 {$ENDIF} |
30 uFloat; |
30 uFloat |
|
31 {$IFDEF IPHONEOS} |
|
32 , PascalExports |
|
33 {$ENDIF} |
|
34 ; |
|
35 |
31 var |
36 var |
32 isCursorVisible : boolean = false; |
37 isCursorVisible : boolean = false; |
33 isTerminated : boolean = false; |
38 isTerminated : boolean = false; |
34 isInLag : boolean = false; |
39 isInLag : boolean = false; |
35 isPaused : boolean = false; |
40 isPaused : boolean = false; |
583 {$I-} |
588 {$I-} |
584 for i:= 0 to 7 do |
589 for i:= 0 to 7 do |
585 begin |
590 begin |
586 assign(f, |
591 assign(f, |
587 {$IFDEF IPHONEOS} |
592 {$IFDEF IPHONEOS} |
588 string(get_documents_path()) |
593 string(IPH_getDocumentsPath()) |
589 {$ELSE} |
594 {$ELSE} |
590 ParamStr(1) |
595 ParamStr(1) |
591 {$ENDIF} |
596 {$ENDIF} |
592 + '/debug' + inttostr(i) + '.txt'); |
597 + '/debug' + inttostr(i) + '.txt'); |
593 rewrite(f); |
598 rewrite(f); |