Fehlermeldung bei Procedure aufruf - need Help

[Cyberbob_at_tot]

Hallo zusammen,

habe eine eigene Procedure für die Ausgabe von Fehlern geschrieben.

Deklaration unter Public
procedure fehler(var fehler:integer); Die Procedure

Delphi-Quellcode:

Procedure TForm1.fehler(var fehler:integer);
Begin
Case Fehler of
1: data:='Fehler1'
2: data:='Fahler2'
else Data:='Unbekannter Fehler';
end;
end;

Der Aufruf (da kommt nun der Fehler)
fehler(1); Fehler: Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen

ich sehe da aber keinen Fehler! Was meint ihr ?

BIG THX

Cyberbob

[bttb930]

gabs doch schon 1000x in diesem forum

nimm das var aus der argumentliste raus, dann klappts

[Cyberbob_at_tot]

Ups doch so einfach!
OK dann vergesssen wir das mal!

BIX THX

[Joe24]

Wenn du einen var-Parameter verlangst, dann musst du ach eine Variable und keinen Konstanten Wert als Parameter übergeben.

[fkerber]

hi!

Naja, die Frage ist warum da überhaupt ein var ist?
Es besagt, dass der übergegebene Wert auch geändert werden kann. Aber wo tust du das?
Hättest du das effektiv vor, müsstest du auch eine var übergeben, weil er '1' nunmal nicht ändern kann.

==> entweder ohne var oder so:

Delphi-Quellcode:

var
xyz: integer;

begin
xyz:=1;
fehler(xyz);
end;

Ciao Frederic

[Cyberbob_at_tot]

Schonmal gut zu wissen.

Desweiteren habe ich gerade gelesen hilft es dem Compiler zur besseren Optimierung. Da ich die Variable ja nicht verändern will!

Die Übergabe mache ich doch per Call by Value, übergebe also nur den Wert der Variable oder liege ich da falsch ?