Verzeichnisstruktur

[medirar]

Ja die sind immer gleichlang!

[DeddyH]

Ich habe den Zusammenhang immer noch nicht verstanden . Soll da ein Dateiname eingegeben und daraus der Pfad ermittelt werden oder andersherum oder wie?

[medirar]

Ja, Der Dateiname wird eingegeben ....zerlegt....und die Datei öffnet sich.....

[DeddyH]

Dann ginge ja auch Insert(), man muss nur daran denken, dass sich danach der Index jeweils um 1 verschiebt.

[edit] Passt das so?

Delphi-Quellcode:

function GetDirFromFilename(Filename, IncludingDir: string;
  BackslashPositions: array of integer): string;
var
  i, RealPosition: integer;
begin
  RealPosition := 0;
  for i := Low(BackslashPositions) to High(BackslashPositions) do
    begin
      Insert('\', Filename, BackslashPositions[i] + RealPosition);
      inc(RealPosition);
    end;
  Result := IncludeTrailingPathDelimiter(IncludingDir) + Filename;
end;



procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(GetDirFromFilename('9R223000L5.jpg', 'G:\PICS', [2,3,5,6]))
end;

[/edit]

[medirar]

Wie meinst Du das? Ich kenne das nicht

Ich habe mal ein Screenshot von der Struktur gemacht!

[DeddyH]

Also wohl eher so:

Delphi-Quellcode:

function GetDirFromFilename(const Filename, IncludingDir: string;
  BackslashPositions: array of integer): string;
var
  i, RealPosition: integer;
  SubDir: string;
begin
  RealPosition := 0;
  SubDir := Filename;
  for i := Low(BackslashPositions) to High(BackslashPositions) do
    begin
      Insert('\', SubDir, BackslashPositions[i] + RealPosition);
      inc(RealPosition);
    end;
  SubDir := ExtractFilePath(IncludeTrailingPathDelimiter(IncludingDir) + SubDir);
  Result := SubDir + Filename;
end;



procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(GetDirFromFilename('9R223000L5.jpg', 'G:\PICS', [2,3,5,6]))
end;

[medirar]

Das ist es! Super Genial Ich werde das mal heute abend ausprobieren. Nur ist mir nicht klar wie ich das jetzt mit IrfanView direkt öffnen kann.