Forum: Programmieren allgemein
by Namenloser,
6. Okt 2008
procedure Test(sResource: pChar);
var
zTmp: string;
begin
SetLength(zTmp, 256);
SetLength(zTmp, GetShortPathName(sResource, @zTmp, length(zTmp)-1));
zTmp := UpperCase(zTmp);
showmessage(ztmp);
end;
Forum: Programmieren allgemein
by Namenloser,
6. Okt 2008
Du hast ja auch nicht meinen Code benutzt. Bei mir steht @zTmp (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.
Forum: Programmieren allgemein
by Namenloser,
6. Okt 2008
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) benutzen und dir an anderen Stellen eine Menge aufwand sparen...
Forum: Programmieren allgemein
by Namenloser,
6. Okt 2008
Warum machst du es dir denn so kompliziert mit dem Array? Nimm einfach einen String und alles ist gut...
Forum: Programmieren allgemein
by Namenloser,
6. Okt 2008
Probier mal das:
var
zTmp: string;
begin
SetLength(zTmp, 256);
SetLength(zTmp, GetShortPathName(sResource, @zTmp, length(zTmp)-1));
zTmp := UpperCase(zTmp);
end;