 |
 |
 |
 |
 |
|
Registriert seit: 16. Jan 2004 Ort: Bendorf 5.219 Beiträge Delphi 10.2 Tokyo Professional |
#1
Spielfeld aus Textdatei laden
22. Mai 2004, 16:18
Ich möchte gerne z.B diese Textdatei in ein Spielfeld "umwandeln" :
111111111111111 1_____________1 1_____________1 1_____________1 1_____________1 1_____________1 1_____________1 1_____________1 1_____________1 1_____________1 1_____________1 1_____________1 1_____________1 1_____________1 1_____________1 1_____________1 1_____________1 1_____________1 1_____________1 111111111111111 wobei die einsen Mauerstücke und die Felder mit Unterstrich Boden sind. ich habe hier den Code dafür in Blitz Basic, aber weiß nicht wie ich ihn in Delphi umsetzen soll !
Delphi-Quellcode:
Das Problem ist das ist das ich den Blitz Basic Code auch nicht vollständig verstehe
tiles = LoadImage("Wand.bmp")
Dim Level$(14,19) leveldatei = ReadFile("level.dat") For Zeile=0 to 14 A$ = ReadLine(leveldatei) For Spalte=0 to 19 Level$(Zeile,Spalte) = Mid$(A$,Spalte+1,1) Next Next CloseFile leveldatei For Zeile=0 to 14 For Spalte=0 to 19 Select Level$(Zeile,Spalte) Case "_" DrawImageRect tiles, Spalte*32, Zeile*32, 36, 36, 32, 32 Case "1" DrawImageRect tiles, Spalte*32, Zeile*32, 70, 274, 32, 32 End Select Next Next 
Michael
|
Zitat
|
ForumregelnEs ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.
BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus. Trackbacks are an
Pingbacks are an
Refbacks are aus
|
|
Baum-Darstellung
