Alter Assembler Code

[Uwe Raabe]

Stevie meint, du sollst deine LoCase Funktion so schreiben wie er das gezeigt hat. Das CharLowerA kümmert sich um die Interna.

[himitsu]

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;