procedure / function

[Phoenix]

Zitat:

Zitat von Remote1

ich kreig aber immer die fehlermeldung, dass dies nicht geht (halt bei file of ...)

Vor 10 minuten warst Du noch nicht zuhause und hattest kein Delphi und jetzt hast Du ne Fehlermeldung? ;-)

[Remote1]

das ist mir auch schon klar, hab ich jetzt vergessen, aber klappt trotzdem nicht

es kommt immer do in die richtung: "dies ist mit dateien nicht möglich"

[Remote1]

ja sicher, ich weiß ja wohl noch was da kam, sonst könnt ich das ja schlecht fragen

[Remote1]

ich weiß ja nicht wo ihr jetzt sitzt, aber ich sitz in der schule und da hab ich nun mal kein delphi

[Remote1]

mal schnell was konstruiert
so in die richtung hat ich das gemacht

Delphi-Quellcode:

procedure keine_ahnung(x:file of ...);
begin

assignfile(x,pchar(ExtractFilePath(Application.ExeName)+'???'));
if fileexists(ExtractFilePath(Application.ExeName)+'???')
  then reset(x)
  else application.MessageBox('Es ist ein Fehler beim öffnen der Datei'+#10#13+'"???"'+#10#13+'aufgetreten','Fehler',mb_ok+mb_iconerror);

end;

[fkerber]

HI!

Sorry etwas OT:

Aber man kann Posts editieren und muss nicht 5x hintereinander posten.

Ciao fkerber

[sakura]

Mach Dir doch mal einen Typ, wenn es geht, dann so oder so nur so:

Delphi-Quellcode:

type
  TMyFileType = file of ...;
 
procedure keine_ahnung(x: TMyFileType);
begin
  ...

...:cat:...

[Remote1]

ich werds mal probieren