array of char UpperCase

[EWeiss]

Zitat von alzaimar:

Nur mal so:
Function Upcase(c : Char) : Char; Und ein Array in Großbuchstaben geht so (zugegeben: Besonders pervers)
StrPCopy (PChar(@s),Uppercase(StrPas(PChar(@s))));

jo das funktioniert klasse auch ohne schleife ..

hab dann aber nocht nicht mein anderes Problem gelößt

Delphi-Quellcode:

zTmp := sResource + RightStr('0000' + LTrim(IntToStr(nCount)), 4); 
zTmp := PChar(zTmp + '0001'); 
zData := PChar(IntToStr(hImage));

Zitat:

[Pascal Error] uGDIButton.pas(739): E2010 Incompatible types: 'Array' and 'string'
[Pascal Error] uGDIButton.pas(750): E2010 Incompatible types: 'Array' and 'PAnsiChar'
[Pascal Error] uGDIButton.pas(755): E2010 Incompatible types: 'Array' and 'PAnsiChar'

gruss Emil

[EWeiss]

Zitat von NamenLozer:

Warum machst du es dir denn so kompliziert mit dem Array? Nimm einfach einen String und alles ist gut...

Schau dir die Funktion an dann weißt du warum es nicht geht.

gruss Emil

[Namenloser]

Zitat von EWeiss:

Zitat von NamenLozer:

Warum machst du es dir denn so kompliziert mit dem Array? Nimm einfach einen String und alles ist gut...

Schau dir die Funktion an dann weißt du warum es nicht geht.

gruss Emil

Ich hab mir die Funktion natürlich durchgelesen, aber ich sehe keine Stelle wo ein Array erforderlich ist. Du kannst statt integer(@Array) problemlos integer(@string[1]) benutzen und dir an anderen Stellen eine Menge aufwand sparen...

[EWeiss]

Zitat von NamenLozer:

Zitat von EWeiss:

Zitat von NamenLozer:

Warum machst du es dir denn so kompliziert mit dem Array? Nimm einfach einen String und alles ist gut...

Schau dir die Funktion an dann weißt du warum es nicht geht.

gruss Emil

Ich hab mir die Funktion natürlich durchgelesen, aber ich sehe keine Stelle wo ein Array erforderlich ist. Du kannst statt integer(@Array) problemlos integer(@string[1]) benutzen und dir an anderen Stellen eine Menge aufwand sparen...

ohne über Array zu gehen so wie du es beschrieben hast
bekomme ich bei
GetShortPathName(sResource, @zTmp, SIZEOF(zTmp)); nichts raus da ich hier einen Buffer benötige.

gruss Emil

[DeddyH]

Wenn zTmp ein String ist:GetShortPathName(sResource, @zTmp[1], Length(zTmp));

[Namenloser]

Du hast ja auch nicht meinen Code benutzt. Bei mir steht @zTmp[1] (Zeiger auf erstes Zeichen) und Length(zTmp)-1. Und vergiss nicht, die Länge des Strings mit SetLength zuerst auf die richtige Länge zu setzen.

[EWeiss]

Zitat von DeddyH:

Wenn zTmp ein String ist:GetShortPathName(sResource, @zTmp[1], Length(zTmp));

Nein es wird nichts zurückgeliefert
zTmp ist leer wenn ich einen string dafür verwende

gruss Emil

[Namenloser]

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

[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

[DeddyH]

GetShortPathName gibt Dir übrigens die benötigte Länge zurück, wenn der Puffer zu klein ist.

Delphi-Quellcode:

SetLength(zTmp,GetShortPathName(sResource,nil,0));
GetShortPathName(sResource,@zTmp[1],Length(zTmp));