Thema: Delphi Verzeichnisstruktur

Einzelnen Beitrag anzeigen

Andreas L.

Registriert seit: 23. Mai 2011
Ort: Furth im Wald
308 Beiträge
 
Delphi 11 Alexandria
 
#4

AW: Verzeichnisstruktur

  Alt 29. Aug 2011, 12:53
Zitat:
G:\PICS\9\R\22\3

9R223000L5.jpg
Sind die Namen der Ordner wie 9 oder R oder 22 immer gleich lang? Wenn ja, kannst du deine eingegebene Nummer einfach mit Delphi-Referenz durchsuchenCopy, Delphi-Referenz durchsuchenPos und evtl. Delphi-Referenz durchsuchenPosEx zerlegen.

Delphi-Quellcode:
var
  tmp: String;
  input: String;
  path: String;
begin
  path := 'G:\PICS\';
  input := Edit1.Text;

  // 1. Zeichen ermitteln
  tmp := Copy(input, 1, 1);

  path := path + tmp + '\';
  // path ist jetzt G:\PICS\9\

  // und so weiter bis du den vollständigen Pfad + Dateinamen hast
  // Öffnen kannst du die Datei dann mit ShellExecute
end;
Andreas Lauß
Blog
  Mit Zitat antworten Zitat