array of char UpperCase

[turboPASCAL]

Man kann auch das Array in den Mülleimer verschieben und sich ein nettes PChar basteln.

Delphi-Quellcode:

function GetShortPathNameStr(longPath: string): string;
var
  szShortPathName: PChar;
  n: integer;
begin
  Result := '';

  GetMem(szShortPathName, MAX_PATH);
  try
    if GetShortPathName(PChar(longPath), szShortPathName, n) > 0 then
      Result = STRING(szShortPathName);
  finally
    FreeMem(szShortPathName);
  end;
end;

Ich habe feststellen müssen das solche Sachen wie @zTmp[1] bei manchen Compilern
in Zeichenwirrwa auflösen.