Forum: Algorithmen, Datenstrukturen und Klassendesign
by Sir Rufo,
21. Mär 2013
Weil es dadurch klarer wird ;)
type
TMyClass = class
strict private
_Value : string;
private
FValue : string;
function GetValue : string;
public
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Sir Rufo,
21. Mär 2013
Ja, warum denn nicht ...
procedure CallFunction( const AName : string; AParams : array of const; AResult : Variant );
var
LName : string;
begin
AResult := Null;
LName := LowerCase( AName );
if LName = 'tollefunktion' then
tollefunktion
else if LName = 'nochtollerefunktion' then