Alter Assembler Code

[Stevie]

Man könnte das auch einfach direkt so schreiben, denn es gibt in Winapi.Windows bereits eine explizite kleine clevere Routine, die sich um das korrekte Übergeben eines einzelnen AnsiChars an die Winapi kümmert:

Delphi-Quellcode:

function LoCase(C: AnsiChar): AnsiChar;
begin
  Result := CharLowerA(C);
end;

[freimatz]

Danke. Ich weiss nicht ob ich Dich richtig verstanden habe. In die Liste der uses habe ich "Winapi.Windows" eingefügt. Trotzdem erscheint [dcc32 Error] ...: E2003 Undeclared identifier: 'locase'.
In der unit Winapi.Windows finde ich auch diese von Dir erwähnte function LoCase nicht.

[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;