DLL-verkleinern

[theomega]

müßte es aber nicht heißen:

Code:

function texter(var P: PChar; MaxLen: Integer): Integer; stdcall; 
var S: string; 
begin 
  S := DateTimeToStr(Now); 
  if P <> nil then StrLCopy(P, PChar(S), MaxLen); 
  Result := Length(S); 
end;

also mit einem var.