File als parameter?

[snow]

Hallo

ich will eine function schreiben, der ein file als parameter übergeben wird. Das File wurde von einer anderen procedure geöffnet. Ich will in der function ein paar blockread's und ein paar blockwrite's machen.

soweit so gut.

nun wollt ich eine function deklarieren :

function GetBlock(F: File):boolean; doch delphi meckert:

Zitat:

[Fehler] JTIOserver.pas(24): E2002 Dateityp ist hier nicht zulässig

ich habs dann mit

type TmeinFile = file; ausprobiert. klappt auch net.

wie kann ich den ein file übergeben? oder geht dass überhaupt nicht?(wäre sehr schade, da ich dann alles in eine procedure zwengen müsste).

gruß snow

[Dax]

Zitat von snow:

wie kann ich den ein file übergeben? oder geht dass überhaupt nicht?(wäre sehr schade, da ich dann alles in eine procedure zwengen müsste).

Offensichtlich kannst du das nicht, und wage es ja nicht, alles in eine Prozedur zu tun: benutze lieber Filestreams

[sirius]

Abgesehen davon, dass ich dir auch Dax' Vorschlag sehr ans Herzen legen würde:
function GetBlock(var F: File):boolean;

[shmia]

Wenn du alles auf TFileStream bzw. die allgemeine TStream-Klasse umschreibst, kannst du dieses Problem umgehen.