array of char UpperCase

[EWeiss]

Zitat von NamenLozer:

Delphi-Quellcode:

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

procedure TForm1.FormCreate(Sender: TObject);
begin
  Test('c:\Windows\Microsoft.NET\DirectX for Managed Code\1.0.2904.0\Microsoft.DirectX.Direct3DX.xml');
end;

Gibt bei mir folgendes aus:

Code:

---------------------------
Project1
---------------------------
C:\WINDOWS\MICROS~1.NET\DIRECT~1\102904~1.0\MICROS~1.XML
---------------------------
OK   
---------------------------

Sorry tut mir leid
Habe nicht ganz mitbekommen auf was du hinaus wolltest das funktioniert natürlich dann auch mit string
und nimmt mir viel Arbeit ab so wie du schon sagtest.
Hatte die länge nicht mit berücksichtigt.
Danke schön

gruss Emil