Verzeichnisstruktur

[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]