Entwickler-Ecke :: Thema anzeigen

mimi - Mo 21.04.03 23:50
Titel: Seltsammer Fehler

Hallo,
ich schreibe gerade einen Level Editor für mein Neues Spiel, und dabei triet ein Fehler auf, beim abspeichern des Levels, der Fehler ist folgender:

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

Draw_Karte {
########################################  
#                                      #  
###################################### #  
#                                      #  
#                                      #  
#                                      #  
#                                      #  
#                                      #  
#                                      #  
#                                      #  
# ######################################  
#                                      #  
#                                      #  
###################################### #  
#  #                                  - #  
#  #  #                               - #  
#  #  #      -                          #  
#  #  #                                #  
#     #-                                #  
#     #                 -               #  
#     #-                                #  
# ##  ##################################  
#                                     - #  
########################################  
Draw_Karte }

diese Datei sollte aber so aussehen:

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

Draw_Karte {
########################################
#                                      #
###################################### #
#                                      #
#                                      #
#                                      #
#                                      #
#                                      #
#                                      #
#                                      #
# ######################################
#                                      #
#                                      #
###################################### #
#  #                                  -#
#  #  #                               -#
#  #  #      -                         #
#  #  #                                #
#     #-                               #
#     #                 -              #
#     #-                               #
# ##  ##################################
#                                     -#
########################################
Draw_Karte }

also fürs Speichern nutze ich folgenden Code:

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

procedure str_into_RichEdit(Liste1215:TStringList;Insert_Text:string; line:integer; position:integer);
var
  h : integer;
begin
  with Liste1215 do begin
    for h := Count to line-1 do Add('');
      for h := length(Strings[line-1]) to position do Strings[line-1] := Strings[line-1] + ' ';
      Strings[line-1] := copy(Strings[line-1], 1, position-1) + Insert_Text + copy(Strings[line-1], position, length(Strings[line-1]));
  end;
end;


procedure TSpiel.SaveGame(pFileName:String);
var
  x,y,i:Integer;
  Inhalt:TStringList;
begin
  Inhalt:=TStringList.Create;
  with Inhalt do begin
    add('Draw_Karte {');
    for y:=0 to MapY do begin
      for x:=0 to MapX do begin
        if Map[x,y].Typ = Wand then str_into_RichEdit(inhalt,'#',y+IndexOf('Draw_Karte {')+2,x+1);
      end;
    end;

// Hier tritt der Fehler auf, warum weiß ich nicht....
    for i:=0 to High(Platten) do begin
      with Platten[i] do begin
        if Typ = PlateX then begin
          if Speed = rx then begin
            str_into_RichEdit( inhalt,'-',y+IndexOf('Draw_Karte {')+2,x+1 )
          end;
        end;
      end;
    end;

    add('Draw_Karte }');
    SaveToFile(pFileName);
  end;
end;

Kann mir bitte jemmand sagen, wo der fehler im code liegt ?
ich finde in einfach nicht :oops:

tommie-lie - Di 22.04.03 17:20

Nanana, nicht so ungeduldig, ich musste ihn dreimal gelesen, bevor ich den Fehler gefunden hab'.

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

with Liste1215 do begin
  for h := Count to line-1 do
    Add('');

  for h := length(Strings[line-1]) to position do
    Strings[line-1] := Strings[line-1] + ' ';

  Strings[line-1] := copy(Strings[line-1], 1, position-1) + Insert_Text + copy(Strings[line-1], position, length(Strings[line-1]));

end;

Hier liegt der Fehler.
Wenn ich richtig gesehen habe, gehst du jede X-Position einzeln durch, schreibst also hintereinander. Die '-' werden dann nachher eingefügt, es muss also eine Lücke geschaffen werden und diese darauf wieder mit dem entsprechenden Zeichen gefüllt werden.
Ich hoffe, daß die Lösung so einfach ist, wenn nicht, habe ich den Code falsch verstanden:

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

with Liste1215 do begin
  for h := Count to line-1 do
    Add('');

  for h := length(Strings[line-1]) to position do
    Strings[line-1] := Strings[line-1] + ' ';

  Strings[line-1] := copy(Strings[line-1], 1, position-1) + Insert_Text + copy(Strings[line-1], position+1, length(Strings[line-1]));

end;

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!