Directory List Box - gewählten Eintrag auslesen

[toyoman]

...und zwar nicht den ganzen Pfad welchen ich mit dirlist.items.strings[dirlist.itemindex] = bekomme. sondern ich möchte nur den mit der Maus angewählten Wert.

Geht das überhaupt?

Als Beispiel:

c:\temp\test ist das aktuelle Verzeichnis
mit der Maus klick ich auf "test" und möchte diesen Wert haben für weitere Verwendung...

konkret verwende ich die TJvDirectoryListbox, ich denke aber es sollte identisch den anderen Directory Listboxen sein, sind ja alle abgeleitet voneinander...


Jemand eine Idee?

[DeddyH]

Ob es da bereits eine fertige Funktion gibt, weiß ich gerade nicht, aber Du kannst es mal damit versuchen:

Delphi-Quellcode:

function LastDir(const sPath: string): string;
var temp: string;
    i: integer;
begin
  Result := '';
  temp := sPath;
  if temp[Length(temp)] in ['\','/'] then
    Delete(temp,Length(temp),1);
  i := Length(temp);
  while (i > 0) and not(temp[i] in ['\','/']) do
    begin
      Result := temp[i] + Result;
      dec(i);
    end;
end;

[Progman]

DirectoryListBox1.Directory gibt den String des ausgewählten Verzeichnisses zurück.

[Deep-Sea]

Zitat:

Zitat von DeddyH

Ob es da bereits eine fertige Funktion gibt, weiß ich gerade nicht, aber Du kannst es mal damit versuchen:

Delphi-Quellcode:

function LastDir(const sPath: string): string;
var temp: string;
    i: integer;
begin
  Result := '';
  temp := sPath;
  if temp[Length(temp)] in ['\','/'] then
    Delete(temp,Length(temp),1);
  i := Length(temp);
  while (i > 0) and not(temp[i] in ['\','/']) do
    begin
      Result := temp[i] + Result;
      dec(i);
    end;
end;

LastDelimiter ?! :wink:

[DeddyH]

Zitat:

Zitat von Progman

DirectoryListBox1.Directory gibt den String des ausgewählten Verzeichnisses zurück.

Ja, aber den kompletten Pfad, den will er ja nicht.

[DeddyH]

Zitat:

Zitat von Deep-Sea

LastDelimiter ?! ;)

Thx, ich kam einfach nicht drauf. :lol:

[toyoman]

Zitat:

Zitat von DeddyH

Ob es da bereits eine fertige Funktion gibt, weiß ich gerade nicht, aber Du kannst es mal damit versuchen:

Delphi-Quellcode:

function LastDir(const sPath: string): string;
var temp: string;
    i: integer;
begin
  Result := '';
  temp := sPath;
  if temp[Length(temp)] in ['\','/'] then
    Delete(temp,Length(temp),1);
  i := Length(temp);
  while (i > 0) and not(temp[i] in ['\','/']) do
    begin
      Result := temp[i] + Result;
      dec(i);
    end;
end;

Sensationell!!! vielen dank!!!!!!!!!!!!

[Deep-Sea]

Delphi-Quellcode:

function LastDir(const APath: String): String;
begin
  Result := ExcludeTrailingBackslash(APath);
  Delete(Result, 1, LastDelimiter(PathDelim, Result));
end;

Sollte ja auch gehen, oder? :gruebel: :P

[DeddyH]

Ich denke schon, ob man von links löscht oder von rechts kopiert, sollte im Ergebnis das Gleiche sein ;)