array of char UpperCase

[Namenloser]

Probier mal das:

Delphi-Quellcode:

var
  zTmp: string;
begin
  SetLength(zTmp, 256);
  SetLength(zTmp, GetShortPathName(sResource, @zTmp[1], length(zTmp)-1));
  zTmp := UpperCase(zTmp); 
end;

[edit] length(zTmp)-1[/edit]