pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fixed path delimiter

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2281 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blaszijk
2012-02-09 18:27:35 +00:00
parent 92ca810952
commit 5b1fa774f4
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
applications/draw_test/unit1.pas
View File

@ -69,17 +69,17 @@ procedure TForm1.FormCreate(Sender: TObject);
var var
i: integer; i: integer;
begin begin
FileCache50 := TFileCache.Create('.\images50.cache'); FileCache50 := TFileCache.Create('./images50.cache');
FileCache100 := TFileCache.Create('.\images100.cache'); FileCache100 := TFileCache.Create('./images100.cache');
png := TPortableNetworkGraphic.Create; png := TPortableNetworkGraphic.Create;
//load all images to the caches //load all images to the caches
for i := 1 to 23 do for i := 1 to 23 do
begin begin
png.LoadFromFile(Format('.\images\%.4d.png', [i])); png.LoadFromFile(Format('./images/%.4d.png', [i]));
FileCache100.Add(i, png); FileCache100.Add(i, png);
png.LoadFromFile(Format('.\images_50\%.4d.png', [i])); png.LoadFromFile(Format('./images_50/%.4d.png', [i]));
FileCache50.Add(i, png); FileCache50.Add(i, png);
end; end;