Funktion gesucht, die den tatsächlichen Pfadnamen ermittelt

[Luckie]

Dann schreib dir eine Funktion, die jeden Buchstaben nach eine Backslash groß schreibt.

Die Glaskugel hat ja mal funktioniert.

[Aviator]

Zitat von Luckie:

Dann schreib dir eine Funktion, die jeden Buchstaben nach eine Backslash groß schreibt.

Das muss ja dann aber auch nicht immer stimmen. Aber ein einfaches Auflisten der Verzeichnisse sollte die Namen in der richtigen Schreibweise auflisten.

Zitat von Luckie:

Die Glaskugel hat ja mal funktioniert.

[Luckie]

Warum muss das nicht immer stimmen? Genau das willst du doch oder?

[uligerhardt]

Zitat von Luckie:

Warum muss das nicht immer stimmen? Genau das willst du doch oder?

Vermutlich will er bei D:\MeinDelphiCode nicht D:\Meindelphicode kriegen.

[Luckie]

Erst alles klein schreiben (LowerCase) und dann "jeden ersten Buchstaben nach einem Backslash groß".

[uligerhardt]

Zitat von Luckie:

Erst alles klein schreiben (LowerCase) und dann "jeden ersten Buchstaben nach einem Backslash groß".

Klappt bei Aviators und meinen Beispielen eben nicht.

[Luckie]

Warum?

Code:

C:\MeinOrdner\meinDritterOrdner\ -> C:\meinordner\meindritterordner\ -> C:\Meinordner\Meindritterordner\

Oder was hab eich da jetzt übersehen?

[Aviator]

Zitat von Luckie:

Warum muss das nicht immer stimmen? Genau das willst du doch oder?

Also was der TE will weiß ich nicht. Meine Glaskugel scheint defekt zu sein.

Aber es gibt doch auch Ordnerstrukturen die so aussehen:

• C:\Windows\System32\
• C:\MeinOrdner\meinzweiterOrdner\
• C:\MeinOrdner\meinDritterOrdner\
• C:\MeinOrdner\Meinvierterordner\

Dann würde es ja auch nicht stimmen, wenn er nach dem Backslash den ersten Buchstaben groß schreiben würde.

Aber das ist ab diesem Zeitpunkt alles nur noch reine Spekulation. Der TE soll sich mal dazu äußern, was er wirklich will. Ich habe die Eingangsfrage nämlich auch nicht wirklich verstanden. Für mich ist da auch nur der Unterschied der Groß-/Kleinschreibung zu erkennen.

[t.roller]

Delphi-Quellcode:

function TitleCase2(const sText: String;
         const bLowerCaseFirst: Boolean = True): String;
const
  cDelimiters = [#9, #10, #13, ' ', ',', '.', ':', ';', '"',
                 '\', '/', '(', ')', '[', ']', '{', '}'];
var
  iLoop: Integer;
begin
  Result := sText;
  if (Result <> '') then
  begin
    Result[1] := UpCase(Result[1]);
    for iLoop := 2 to Length(Result) do
      if (Result[iLoop - 1] in cDelimiters) then
        Result[iLoop] := UpCase(Result[iLoop]);
  end;
end;

function GetLongPathName(ShortName:String):String;
var  NameS: String;
     Len : integer;
     Buffer: array[0..MAX_PATH] of Char;
     pDummy: PCHAR;
begin
     Len := GetFullPathName(PChar(ShortName), 0, PChar(result), pDummy);
     SetLength(NameS, Len);
     GetFullPathName(PChar(ShortName), Len, PChar(NameS), pDummy);
     result := TitleCase2(NameS);
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
Caption:= GetLongPathName('c:\windows\system32');
end;

Alternative:

Delphi-Quellcode:

function TitleCase3(const sText: String;
         const bLowerCaseFirst: Boolean = True): String;
var
  iLoop: Integer;
begin
  Result := sText;
  if (Result <> '') then
  begin
    Result[1] := UpCase(Result[1]);
    for iLoop := 2 to Length(Result) do
      if (not (Result[iLoop - 1] in ['a'..'z','A'..'Z','0'..'9'])) then
          Result[iLoop] := UpCase(Result[iLoop]);
  end;
end;

function GetLongPathName(ShortName:String):String;
var  NameS: String;
     Len : integer;
     Buffer: array[0..MAX_PATH] of Char;
     pDummy: PCHAR;
begin
     Len := GetFullPathName(PChar(ShortName), 0, PChar(result), pDummy);
     SetLength(NameS, Len);
     GetFullPathName(PChar(ShortName), Len, PChar(NameS), pDummy);
     result := TitleCase3(NameS);
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
Caption:= GetLongPathName('C:\Windows\System32\ATEST\123Test');
end;