- Changed TTileData.FFileName to get trimmed after initialization

This commit is contained in:
Andreas Schneider 2008-09-15 22:58:46 +02:00
parent ac37625746
commit da87485fc5
1 changed files with 4 additions and 2 deletions

View File

@ -21,7 +21,7 @@
* CDDL HEADER END
*
*
* Portions Copyright 2007 Andreas Schneider
* Portions Copyright 2008 Andreas Schneider
*)
unit UTiledata;
@ -30,7 +30,7 @@ unit UTiledata;
interface
uses
Classes, UMulBlock;
Classes, SysUtils, UMulBlock;
const
tdfBackground = $00000001;
@ -183,6 +183,7 @@ begin
AData.Read(FTextureID, SizeOf(Word));
AData.Read(PChar(FTileName)^, 20);
end;
FTileName := Trim(FTileName);
end;
destructor TLandTiledata.Destroy;
@ -234,6 +235,7 @@ begin
AData.Read(FHeight, SizeOf(Byte));
AData.Read(PChar(FTileName)^, 20);
end;
FTileName := Trim(FTileName);
end;
destructor TStaticTiledata.Destroy;