[DELPHI]Dynamic Array en extra info saven en laden

Pagina: 1
Acties:

  • douweh
  • Registratie: Maart 2001
  • Laatst online: 20-08 18:34
Ja..
Dat is mijn probleem,
ik maak dus een spel, en nu een leveleditor, daarvoor..
Ik heb dus een 2-dimensionale dinamische array, waarin ik records bewaar, deze records vertegenwoordigen een tile van mn platform spel..
Nu wil ik deze array ik een file op kunnen slaan, maar ook extra gegevens daar bij.. bijvoorbeeld een aantal strings of een integer.. nog een record, zoiets..
Ik ben nu zover dat ik een een dimensionale array van en vastgestelde grote kan opslaan, maar daar heb ik niet zoveel aan..! wie helpt mij?

  • Creepy
  • Registratie: Juni 2001
  • Laatst online: 06-09 14:04

Creepy

Tactical Espionage Splatterer

Wat heb je al geprobeerd?? Hoe sla je nu dingen op?? Wat lukt er precies niet???

"I had a problem, I solved it with regular expressions. Now I have two problems". That's shows a lack of appreciation for regular expressions: "I know have _star_ problems" --Kevlin Henney


  • douweh
  • Registratie: Maart 2001
  • Laatst online: 20-08 18:34
Dat leg ik toch net uit..
Ik kan al wel een enkele array opslaan..
zal hier even wat code bijgeven dan, maar dat spreekt opzich wel voor zichzelf..
"Lijst" is een array of TWhop, waarin TWhop dus weer een record is..
code:
1
2
3
4
5
6
7
8
9
10
11
12
var
teller : integer;
Fnaam : File of TWhop;
begin
  assignfile(Fnaam, bestandsnaam);
  rewrite(Fnaam);
    for teller := 0 to Length(Lijst) do
    begin
     write (Fnaam, Lijst[teller]);
    end;
  Closefile(Fnaam);
end;

Probleem is dus het wegschrijven van een dinamische 2dimensionale array + extra gegevens..
EN het laden daarvan

Verwijderd

Op donderdag 06 juni 2002 18:31 schreef douweh het volgende:
Probleem is dus het wegschrijven van een dinamische 2dimensionale array + extra gegevens..
EN het laden daarvan
Dat is toch nauwelijk anders? Zie het probleem ook niet.
misschien een kleine verandering
code:
1
2
3
4
5
6
7
8
9
10
11
var
dim1,dim2 : integer;
Fnaam : File of TWhop;
begin
  assignfile(Fnaam, bestandsnaam);
  rewrite(Fnaam);
  for dim1 := 0 to Length(Lijst) do
    for dim2 := 0 to Length(Lijst[dim1]) do
    write (Fnaam, Lijst[dim1][dim2]);
  Closefile(Fnaam);
end;

Misschien heb je wat aan http://www.drbob42.com/delphi4/dynarray.htm?
code is untested, maar volgens mij is het idee wel duidelijk

  • douweh
  • Registratie: Maart 2001
  • Laatst online: 20-08 18:34
Het was inderdaad makkelijker dan het uiteindelijk leek..
Ik heb nu dus de oplossing..
Het "grote probleem" lag hem in het feit dat die array dus dynamisch was.. Ik heb het nu dus zo opgelost..
Ik save eerst een record, met wat algemene info,
en op die manier dus ook de dimensies van de array..
daarna kan ik dus de array ook soepel savben.
en weer loaden, om dat ik dus weet hoeveel ik moet loaden..
IIg bedankt..