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