Hallo,
ich möchte eine Lowercase Funktion schreiben, die ich ohne die
VCL verwenden kann.
Bis jetzt habe ich es so:
Delphi-Quellcode:
function StrLower(Str: PChar): PChar;
var
pIdx: PChar;
begin
GetMem(Result, SizeOf(Str));
pIdx := @Str[1];
while (pIdx^ <> #0) do
begin
if pIdx^ in ['A'..'Z'] then
pIdx^ := Chr(Ord(pIdx^)+32);
Inc(pIdx);
end;
end;
Nur ist das richtig? Ich meine, müsste ausserhalb der Funktion nicht dann auch noch FreeMem() aufgerufen werden?