procedure / function

[Remote1]

kann man einer procedure/function als parameter eine datei übergeben (kein string, sondern direkt den selbst gemachten dateityp --> zb. f1:file of ??? )

[Luckie]

Was haben denn deine Tests ergeben?

[Neg]

Ja, kann man. Allerdings nur als Referenz-Parameter.

PS: Nächstes Mal bitte einen besseren Titel wählen... Danke.

[Remote1]

kann mir mal jemand ein wenig quellcode zeigen (mal nen beispiel)

[Matze]

Es wäre sinnvoll, wenn du deinen, bereits vorhandenen, Quelltext posten könntest.

Dann können wir dich verbessern.
Ich denke, das können wir schon von dir verlangen, oder? ;)

[Remote1]

ich sitz hier aber nicht zu hause und hab auch kein delphi auf dem rechner installiert

wenn das schon mal jemand gemacht hat, dann einfach mal die parameterliste durchgeben
danke

[Remote1]

ich möchts eigentlich irgendwie so haben

Delphi-Quellcode:

procedure datei(dat:???);
var ...
begin
 write(dat,...);
end;

halt so in die richtung mit dateiarbeit

[Matze]

Delphi-Quellcode:

procedure so_und_so(var x: file of ..);
begin
  x := ...
end;

Bei einem Referenzparameter wird das var im Prozedurkopf vorangestellt. Es übermittelt die Speicheradresse, sodass die Variable im gesamten Programm verändert wird.

Musst es halt deinen Bedürfnissen anpassen ;)


[Edit]Auf Luckie's Wunsch einen Doppelpunkt nach dem x hinzugefügt :mrgreen:[/Edit]

[Remote1]

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

[Luckie]

Nach dem x in der Parameterliste fehlt ein Doppelpunkt. :zwinker:

Zitat:

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

Und welche? :roll:

[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