🚀 go-pugleaf

W dniu wtorek, 27 listopada 2018 20:08:56 UTC+1 użytkownik Pancio napisał:
> Witam,
> Mam pewien problem i z wielka nadzieja pisze ten post, bo moze ktos moglby mi pomoc.
> Mam do napisania mini gre w ktorej jedna plansza ma wymiar 20x20. Utworzylem plik z planszami i wszystko bylo w porzadku, dopoki plansze wczytywalem w ten sposob:
> 
> type
>   Poziom = record
>              Plansza : array[1..20] of string[20];
>            end;
> 
> var
>   f : file;
>   p : Poziom;
> begin
>   AssignFile(f, 'nazwa pliku');
>   Reset(f, SizeOf(p));
>   Seek(f, nr_planszy);
>   BlockRead(f, p, 1);
>   CloseFile(f);
> end;
> 
> Teraz jednak mam potrzebe, aby plik z planszami umiescic w wiekszym pliku z innymi zasobami DLL. No i tutaj pojawia sie problem z odczytem, bo dziala on jedynie w przypadku pierwszej planszy. Innych za diabla nie moge wczytac. Robie to tak:
> 
> var H : THandle;
>     Stream : TResourceStream;
>     mStream : TMemoryStream;
> begin
>   H := LoadLibrary('nazwa_pliku_z_zasobami.dll');
>   mStream := TMemoryStream.Create;
>   try
>     Stream := TResourceStream.Create(H, 'PLANSZE', RT_RCDATA);
>     mStream.LoadFromStream(Stream);
>     mStream.Seek(SizeOf(Poziom), 0);
>     mStream.ReadBuffer(p, SizeOf(Poziom));
>     Stream.Free;
>   finally
>     mStream.Free;
>     FreeLibrary(H);
>   end;
> end;
> 
> Czy moge prosic "ludzi dobrej woli" o pomoc i podpowiedz, co mam poprawic w kodzie. Wedlug mnie problem lezy w procedurze Seek, ale nie wiem, jak ustawic kursor, aby poprzez ReadBuffer wczytaj N-ty poziom gry.
> 
> --
> Pancio

To chyba powinno być jakoś tak:

mStream.Seek(SizeOf(Poziom)*(nrPlanszy-1), soFromBeginning);

Jeśli numerujesz plansze od 0 to bez -1

Paweł