"-= SpookiePower=-" <boxjunk2600@hotmail.com> wrote in
news:9r43aa$jak$1@news.cybercity.dk:
> Hvorfor virker Append ikke i dette program ?? Jeg får beskeden -
> Incompatible types.
> Programmet virker med Rewrite, men så sletter jeg jo indholdet i
> filen.
>
>
<klip>
> procedure TTestRecordForm.btnTilfojvarerClick(Sender: TObject);
> Var
> PrisListe : TPrisListe;
> begin
> AssignFile(Pris, Filenavn);
> try
> Append(Pris); // Virker ikke
<klip>
Append er kun til Text filer, hvis du vil gøre det samme med andre
typer skal du anvende reset(handle) og så seek
fx: seek(fHandle, FileSize(fHandle) div sizeof(TPrisliste));
det skulle vist gøre det.
/Claus
--
Claus Christiansen, <mailto:cch@unipeople.dk>
personal:
http://www.bigfoot.com/~kruc/; pythia:
http://www.pythia.dk
============================================--------------------------
"Computers are useless. They can only give you answers."
- Pablo Picasso (1881-1973)