25. april 2004 - 18:27Der er
4 kommentarer og 1 løsning
Hvem kan sige mig hvad der sker?
Ja, jeg vil blive utrolig glad, hvis der er nogle venlige mennesker der kan sige mig hvad der sker i denne kode. Det må gerne være meget beskrivende. Jeg ved at den søger efter en databse, og hvis den ikke er der laver den selv en, men kan jeg ikke rigtig se. Håber der er nogle der er nogle der vil være så venlige at tykke den igennem og fortælle mig hvad der sker.
AssignFile(IndsaetnavnFile,'navnebog.adr'); if FileExists('navnebog.adr') then Reset(IndsaetnavnFile) else Rewrite(IndsaetnavnFile); Seek(IndsaetnavnFile, fpos[NavneBox.ItemIndex]); Read(IndsaetnavnFile,Indsaetnavn); Indsaetnavn.Slettet := True; Seek(IndsaetnavnFile, fpos[NavneBox.ItemIndex]); Write(IndsaetnavnFile,Indsaetnavn); CloseFile(IndsaetnavnFile);
for i:= NavneBox.ItemIndex to navnebox.Count do fpos[i] := fpos[i+1];
hvis navnebog.adr eksisterer så åben fil ellers lav fil og åben den gå til position for NavneBox i filen læs record marker record som slettet gå til position for NavneBox i filen (igen) overskriv record (med markering som slettet) luk fil fjern record fra positions listen
Mange tak, hvis du har lyst og gider vil jeg bliver glad hvis du kunne kommentere den her også :)
procedure TTelefonbog.BVissletClick(Sender: TObject); var Indsaetnavn: TIndsaetnavn; pl:integer; begin NavneBox.Clear; AssignFile(IndsaetnavnFile,'navnebog.adr'); if FileExists('navnebog.adr') then Reset(IndsaetnavnFile) else Rewrite(IndsaetnavnFile); pl:=0; while not eof(IndsaetnavnFile) do begin read(IndsaetnavnFile,Indsaetnavn); if Indsaetnavn.Slettet then begin NavneBox.AddItem(Indsaetnavn.Navn, Sender); fpos[pl] :=filepos(IndsaetnavnFile)-1; inc(pl); end; end; CloseFile(IndsaetnavnFile);
hvis navnebog.adr eksisterer så åben fil ellers lav fil og åben den så længe der er mere i filen læs record hvis record er slettet så tilføj record til NavneBox gem position på den luk filen
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
