Hallo DPler,
Ich habe folgende Klasse geschrieben:
Delphi-Quellcode:
type
IWaitCursor = interface
end;
TWaitCursor = class (TInterfacedObject, IWaitCursor)
private
fCursor : TCursor;
public
constructor Create;
destructor Destroy; override;
end;
implementation
constructor TWaitCursor.Create;
begin
inherited;
fCursor := Screen.Cursor;
Screen.Cursor := crHourGlass;
MainFrom.TrafficLight := tlRed;
end;
destructor TWaitCursor.Destroy;
begin
Screen.Cursor := fCursor;
MainFrom.TrafficLight := tlGreen;
inherited;
end;
Diese Klasse benutze ich um in länger dauernden Prozeduren den Wartecursor anzuzeigen und automatisch den richtigen Cursor wiederherzustellen, nachdem die Prozedur beendet ist.
Nun bekomme ich aber für jede Verwendung einen Hinweis vom Compiler, dass die variable nicht genutzt wird. Kann man das irgendwie für diese Fälle ausschalten?
Delphi-Quellcode:
procedure TMainForm.MyMethod;
var
cur : IWaitCursor;
begin
cur := TWaitCursor.Create; // Auf 'cur' zugewiesener Wert wird niemals benutzt
sleep(1000);
end;