---

Jeg har lavet et lille program som skriver til og læser
fra en Record-file. Hver gang jeg skriver til Record-filen bliver det
som jeg sidst skrev ind slette. Hvad gør jeg forkert eller
hvad mangler jeg i mit lille program, for at få det til at
blive stående, så jeg til sidst har en Record-file med en masse
linier i ? Håber mine små program stumper, kan hjælpe lidt.

type
TPrisliste = Record
VareNummer : Integer;
VarePris : Integer;

// Her opretter jeg filen, hvis den ikke eksistere.

if not FileExists(Filenavn) then
begin
AssignFile(Pris, Filenavn);
try
Rewrite(Pris);
PrisListe.VareNummer := 1;
PrisListe.VarePris := 2;
write(Pris, PrisListe);
finally
CloseFile(Pris);
end;

// Her bliver der tilføjet til dat-filen, hvad jeg skriver.

AssignFile(Pris, Filenavn);
try
Rewrite(Pris);
PrisListe.VareNummer := StrToInt(edtVarerNummer.Text);
PrisListe.VarePris := StrToInt(edtVarerPris.Text);
write(Pris, PrisListe);
finally
CloseFile(Pris);

---

Hej Texas

Du skal istedet for Rewrite bruge Append.

Hvs du læser i Delphi hjælp står der:"Rewrite creates a new file and opens it".

PL


"-= Texas =-" <boxjunk2600@hotmail.com> skrev i en meddelelse news:9q4ak7$ueh$1@news.cybercity.dk...
> Jeg har lavet et lille program som skriver til og læser
> fra en Record-file. Hver gang jeg skriver til Record-filen bliver det
> som jeg sidst skrev ind slette. Hvad gør jeg forkert eller
> hvad mangler jeg i mit lille program, for at få det til at
> blive stående, så jeg til sidst har en Record-file med en masse
> linier i ? Håber mine små program stumper, kan hjælpe lidt.
>
> type
> TPrisliste = Record
> VareNummer : Integer;
> VarePris : Integer;
>
> // Her opretter jeg filen, hvis den ikke eksistere.
>
> if not FileExists(Filenavn) then
> begin
> AssignFile(Pris, Filenavn);
> try
> Rewrite(Pris);
> PrisListe.VareNummer := 1;
> PrisListe.VarePris := 2;
> write(Pris, PrisListe);
> finally
> CloseFile(Pris);
> end;
>
> // Her bliver der tilføjet til dat-filen, hvad jeg skriver.
>
> AssignFile(Pris, Filenavn);
> try
> Rewrite(Pris);
> PrisListe.VareNummer := StrToInt(edtVarerNummer.Text);
> PrisListe.VarePris := StrToInt(edtVarerPris.Text);
> write(Pris, PrisListe);
> finally
> CloseFile(Pris);
>
>

---

Tak for hjælpen PL.

Når jeg kigger i append-hjælpen ser det også ud til at være den kommando
jeg skal bruge. Men det vil ikke virke hvis jeg kun udskifter rewrite med
append.



"P.L." <jessie-peter@get2net.dk> wrote in message
news:3bc5b1d0$0$42107$edfadb0f@dspool01.news.tele.dk...
> Hej Texas
>
> Du skal istedet for Rewrite bruge Append.
>
> Hvs du læser i Delphi hjælp står der:"Rewrite creates a new file and opens
it".
>
> PL

---

Således skal det gøres.

assignfile(pris,Filenavn)
if fileexists(Filenavn) then append(pris) else rewrite(pris)
...

Hilsen
Uffe

"-= Texas =-" <boxjunk2600@hotmail.com> wrote in message
news:9q5009$2dat$1@news.cybercity.dk...
> Tak for hjælpen PL.
>
> Når jeg kigger i append-hjælpen ser det også ud til at være den kommando
> jeg skal bruge. Men det vil ikke virke hvis jeg kun udskifter rewrite med
> append.
>
>

---

"-= Texas =-" <boxjunk2600@hotmail.com> wrote:
>
> Jeg har lavet et lille program som skriver til og læser
> fra en Record-file. Hver gang jeg skriver til Record-filen bliver det
> som jeg sidst skrev ind slette. Hvad gør jeg forkert eller
> hvad mangler jeg i mit lille program, for at få det til at
> blive stående, så jeg til sidst har en Record-file med en masse
> linier i ? Håber mine små program stumper, kan hjælpe lidt.

[kode klippet væk]

> // Her bliver der tilføjet til dat-filen, hvad jeg skriver.
>
> AssignFile(Pris, Filenavn);
> try
> Rewrite(Pris);

Nej. "Rewrite()" opretter og *tømmer* filen. Erstat ovenstående med:

Reset(Pris);

hvis Pris er oprettet som:

var
Pris : file of TPrisliste;

MVH, René
--
Using Virtual Access
http://www.vamail.com