Hogyan tudok típusos állományba írni, úgy hogy ne törölje az előző adatot?

Szia.

Rewrite (f) helyett használj Reset (f)-t.

Eldönteni, hogy a fájl létezik-e vagy nem pedig az ioresult függvény segitségével tudod.

Turbó pascal help Ioresult minta program (itt is tipusos fájlról van szó, csak a tipus az byte) :

Sample Code :

{IOResult.PAS}

{Sample code for the IOResult function.}

{ For Windows: }

{ uses WinCrt; }

var F: file of Byte;

begin

{ Get file name command line }

Assign(F, ParamStr(1));

{$I-}

Reset(F);

{$I+}

if IOResult = 0 then

Writeln('File size in bytes: ', FileSize(F))

else

Writeln('File not found');

end.

Sok sikert.

Üdv.

Szia.

Akkor az a baj, hogy mindig az első rekordhelyre irsz (vagy 0. rekord).

Megnyitott filen belüli a pozicionálás : seek

Filében lévő rekordszám lekérdéezése (utolsó rekord megállapitása végett) : filesize

Tipusos álományoknál is ugyanolyan jól müködnek.

Seek minta program :

Sample Code:

{FilePos.PAS}

{Sample code for the FilePos and FileSize functions, and the Seek

procedure.}

{ For Windows: }

{ uses WinCrt; }

var

f: file of Byte;

size : Longint;

begin

{ Get file name from command line }

Assign(f, ParamStr(1));

Reset(f);

size := FileSize(f);

Writeln('File size in bytes: ',size);

Writeln('Seeking halfway into file...');

Seek(f,size div 2);

Writeln('Position is now ',FilePos(f));

Close(f);

end.

Sok sikert.

Üdv.