Weiß nicht wie die Profis das machen, ich würde eine
Exception werfen ...
Delphi-Quellcode:
type EGetFileData =
Exception;
// ...
function TData.GetFileData() : Int64;
begin
if not isEmpty()
then
begin
Result:=Int64Data[DataPointer - 1];
end
else
begin
raise EGetFileData.Create('
hier bleib ich irgendwie stecken.');
end;
end;
... und diese im aufrufenden Code mit try...except auffangen.
MfG,
Bug