Wczytywanie planszy z pliku w Delphi

</span></p>

Jeśli będziesz robił kiedyś grę w Delphi, może będziesz chciał wczytywać plansze z plików. I właśnie o tym będzie niniejszy text.

To na początek ustalmy, że ta "niby gra" będzie o jakimś ludku chodzącym sobie po planszy. Najpierw robimy planszę w powiedzmy pliku "level1.lvl".

<tt>1111111111 1000000001 1000000001 1000000001 1000000001 1000000001 1000000001 1000000001 1000000001 1111111111</tt>

Bardzo obrazowe:-) Plansza ma wielkość 10X10, 1 to "ściany", a 0 to wolne pola. Oczywiście możemy wprowadzić o wiele więcej oznaczeń (0-9, A-Z, a-z i inne). Przed tym ciągiem możemy zawrzeć inne informacje, np. szerokość planszy. My jednak napiszemy tu pozycję startową Ludka.

<tt> 4 3 1111111111 1000000001 1000000001 1000000001 1000000001 1000000001 1000000001 1000000001 1000000001 1111111111</tt>

I Ludek będzie startował z pola 4x, 3y. Ok, teraz przchodzimy do Delphi, tu będziemy odczytywać plik.

Tworzymy byle jaką procedurę.

<tt>procedure TForm1.Button1Click(Sender: TObject); begin
end;</tt>

O właśnie. Do odczytania pliku będą potrzebne odpowiednie zmienne, więc przechodzimy do sekcji var i dodajemy zmienną TextFile, która będzie nam potrzebna do odczytu pliku.

<tt>var   Form1: TForm1;   Plik: TextFile;</tt>

Na wszelki wypadek tłumaczę, że zmienna Form1 to zmienna formularza. No to jeszcze potrzebujemy zmiennych do przechowywania informacji o planszy (najlepiej tablica Boolean) i pozycji startowej Ludka (dwie zmienne typu SmallInt, dla oszczędności pamięci).

<tt>var   Form1: TForm1;   Plik: TextFile;   Plansza: Array[1..10, 1..10] of Boolean;   X, Y: SmallInt;</tt>

Jeszcze tylko w procedurze Button1Click tworzymy zmienną lokalną Temp typu String[10] oraz i i t typu SmallInt, potem zobaczysz po co nam ona.

<tt>procedure TForm1.Button1Click(Sender: TObject); var   Temp: String[10]</b>;   i, t: SmallInt; begin</tt>

No to teraz bierzemy się do programowania. Najpierw otwieramy plik i zaczynamy odczyt.

<tt>begin   AssignFile(Plik, 'level1.lvl');   Reset(Plik); end;</tt>

Nie muszę chyba tłumaczyć składu i działania tych procedur? Dobra, to teraz odczytujemy pozycje startowe.

<tt>  Reset(Plik);   Readln(Plik, X);   Readln(Plik, Y); end;</tt>

Teraz zacznie się zabawa:-] Więc plansza ma rozmiary 10X10, więc stwórzmy pętle, która odczyta wszystkie 10 linijek.

<tt>  Readln(Plik, Y);   for i:=1 to 10 do   begin     Readln(Plik, Temp);   end; end;</tt>

Teraz musimy przy pomocy polecenia Copy odczytać po jednym znaku i jeśli będzie to 1 ustawić wartość w tablicy na true, a jeśli 0 to na false.

<tt>  for i:=1 to 10 do   begin     Readln(Plik, Temp);     for t:=1 to 10 do     begin       if Copy(Temp, t, 1)='1' then Plansza[i][t]:=true       else Plansza[i][t]:=false;     end;   end;</tt>

Jeszcze tylko zamykamy plik...

<tt>    end;   end;   CloseFile(Plik); end;</tt>

Teraz informacje leżą grzecznie w tablicach i od ciebie zależy jak je wyświetlisz na ekranie. Powodzenia

Tip: Jeśli chcesz naprawdę oszczędzić pamięć możesz zastąpić SmallInt własnym typem w zakresie 1..10.