Delphi-Quellcode:
MyClass: TObject;
public
class procedure GetValues(var value1: string; var value2: string; const when: TDateTime = 0; const critaria: string = '');
end;
class procedure MyClass.GetValues(var value1: string; var value2: string; const when: TDateTime = 0; const critaria: string = '');
begin
// do nothing
end;
Aufruf:
Delphi-Quellcode:
uses
UnitMyClass, SysUtils;
var
val1, val2, crit: string;
begin
crit := 'Test';
MyClass.GetValues(val1, val2, now, test); // hier gibts den fehler
end;
So schaut das bei mir aus (mit dem unterschied, das ich bei do nothing einen etwas grösseren auskommentierten block habe, und die werte ein wenig anders heissen.
Also auch wenn die Methode leer ist, gibt es den EVariantError bereits beim aufruf.