Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.644 Beiträge
Delphi 12 Athens
|
Re: Funktion aus anderer Unit einbinden?
26. Jan 2009, 20:04
Delphi-Quellcode:
unit Irgendwas;
interface
uses Dialogs; //je nachdem, was gebraucht wird
function ThrowException(Code: String): String;
implementation
function ThrowException(Code: String): String;
begin
beep;
if Code = ' empty Version' then
ShowMessage(' Es ist eine Exception aufgetreten in "Update.Version.empty()": die Versionsinfo ist leer?' +#13#10 +' Neuinstallation!');
end;
end.
Detlef "Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|