Boar eh
Zitat:
Delphi-Quellcode:
function CharLowerA(tch: AnsiChar): AnsiChar; overload; stdcall; inline;
begin
Result := AnsiChar(IntPtr(CharLowerA(LPSTR(IntPtr(tch)))));
end;
Hab mich erst gewundert, wie das funktionieren soll, aber
Zitat von
MSDN: CharLowerA:
Converts a character string or a single character to lowercase. If the operand is a character string, the function converts the characters in place.
Dann muß man ja garnicht erst mühevoll eine #0 anhängen.
Delphi-Quellcode:
function LoCase(C: AnsiChar): AnsiChar;
begin
Result := AnsiChar(Pointer(CharLowerA(PAnsiChar(Pointer(C)))));
end;