---
title: "Mitt spel krånglar"
type: "forum-thread"
url: "https://www.webforum.nu/amne/programmering/40497-mitt-spel-krånglar"
topic: "Programmering"
topic_url: "https://www.webforum.nu/amne/programmering"
author: "Alpha II"
published: "2002-03-28T21:53:40.000Z"
updated: "2002-04-12T18:18:38.000Z"
replies: 2
views: 414
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/programmering/40497-mitt-spel-krånglar"
---

# Mitt spel krånglar

## #1 — Alpha II, 2002-03-28T21:53Z

Det är nått konstigt fel med mitt spel som jag inte kan lösa... när jag ska kompilera det får jag bara massa konstiga felmedelanden :(

Bilagor:

- [castleage.zip](https://www.webforum.nu/a/40.zip)

Permalänk: https://www.webforum.nu/p/40497

## #2 — WiNNe, 2002-03-31T17:12Z

För att ta hand om det mest jobbiga felet med att programmet hänger sig i en enorm kavalkad av showmessages.

Din except hantering var fel. Inget semikolon efter except utan 
ta bort det och sätt dit begin och end. 

\-----------------------
procedure TForm1.DrawTitles(ThisX,ThisY:Integer);
var x, y, CountX, countY: integer;
    Img : TBitMap;
begin
  Img := TBitMap.Create();
  CountX := 0;
  CountY := 0;
  try
    for y := ThisY to TITLES_HEIGHT do
    begin
      For x := ThisX to TITLES_WIDTH do
      begin
        Img.LoadFromFile('graphic\\'+Titles\[x\]\[y\].Image\[0\]);
        Buffer.Canvas.Draw(CountX \* 64, 64-Img.Height+CountY\*64, Img);
        inc(CountX);
      end;
      CountX := 0;
      inc(CountY);
    end;
  except
    begin
      showmessage('Fel i programet!');
      close;
    end;
end;

\---------------------------

I init rutinen kör du

for i := 0 to (length(S) + 1) div 4 do

men det blir från 0 till 10 med den world filen, alltså 11st repititioner. Det finns bara 10st i filen så lägg till -1.

for i := 0 to ((length(S) + 1) div 4)-1 do

Det funkar inte ändå riktigt, men det är en bit på vägen...

Lägg gärna upp en länk med DirectX komponenterna du använder så vi kan kompilera på riktigt.

Permalänk: https://www.webforum.nu/p/633131

## #3 — Alpha II, 2002-04-12T18:18Z

Finns det ingen funktion som liknar explode() i PHP?
om man har en variabel med värdet 12-356-1356 och kör det genom explode(variabel, "-") så får man en array som ser ut så här:

array\[0\] = 12
array\[1\] = 356
array\[2\] = 1356

Finns det nån likanande funktion i delphi?? Det är funktionen som ska göra samma sak som explode gör i PHP i mitt program som inte fungerar...

Permalänk: https://www.webforum.nu/p/642229

---

Tråden på webben: https://www.webforum.nu/amne/programmering/40497-mitt-spel-krånglar