moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-25 18:52:15 -05:00
Code Issues Releases Wiki Activity

Fixed.

Browse Source 
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@99 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Raymond 2009-10-03 19:38:40 +00:00
parent 0f2c4af46f
commit 33b416a939
3 changed files with 390 additions and 390 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Units/MMLAddon/PSInc/pscompile.inc
View File

@ -10,7 +10,7 @@ Sender.AddFunction(@psWriteln,'procedure writeln(s : string);');
{ DTM }
Sender.AddFunction(@ps_StringFromDTM, 'function StringFromDTM(DTMString: String): Integer;');
Sender.AddFunction(@ps_StringFromDTM, 'function DTMFromString(DTMString: String): Integer;');
Sender.AddFunction(@ps_FreeDTM, 'procedure FreeDTM(DTM: Integer);');
Sender.AddFunction(@FindDTM, 'function FindDTM(DTM: Integer; var x, y: Integer; x1, y1, x2, y2: Integer): Boolean;');

2
Units/MMLCore/client.pas
View File

@ -34,7 +34,7 @@ begin
MFiles := TMFiles.Create;
MFinder := TMFinder.Create(Self);
MBitmaps := TMBitmaps.Create(self);
MDTM := MDTM.Create(self);
MDTM := TMDTM.Create(self);
end;
destructor TClient.Destroy;

8
Units/MMLCore/dtm.pas
View File

@ -9,8 +9,6 @@ uses
type
TMDTM = class(TObject)
constructor Create(Owner: TObject);
destructor Destroy; override;
function AddDTM(d: TDTM): Integer;
function AddpDTM(d: pDTM): Integer;
@ -32,6 +30,8 @@ type
function pFindDTM(DTM: pDTM; var x, y: Integer; x1, y1, x2, y2:
Integer): Boolean;
constructor Create(Owner: TObject);
destructor Destroy; override;
private
Client: TObject;
@ -75,7 +75,7 @@ uses
Client, dtmutil, paszlib;
type
TBufferByteArray = Array[0..524288] of Byte;
TBufferByteArray = Array[0..524287] of Byte;
PBufferByteArray = ^TBufferByteArray;
constructor TMDTM.Create(Owner: TObject);
@ -107,7 +107,7 @@ function TMDTM.StringToDTM(S: String): pDTM;
var
b: PBufferByteArray;
Source : String;
DestLen : LongWord;
DestLen : longword;
i,ii,c : integer;
begin
SetLength(Result.p,0);