Et lille problem...

bedre overskrift ville være rart

kk

function ExtractFileName(const FileName: string): string;
i unit sysUtils.

den tager hele stigen...

..har læst indad nu:

result:='dc\'+ExtractFileName('D:\Inetpub\Wwwroot\dc\default.asp');

du kan ikke undgå at få slettet 'dc' på den her måde.

Ellers er dit problem jo ret simplet:

result:=copy(str,19,length(str)-19); //hvor str er fuldt filnavn

men så virker det kun på netop denne sti.

OK... Det sidste eksempel ('http://localhost' + copy(fEditor.fFileName,19,length(fEditor.fFileName)-18)) virkede... Men er det muligt at "vende" slashene fra "\" til "/" ?

skulle give dig en ide om hvad man kan gøre:

function ToTilbage(folder: string): string;
var
  st: string;
begin
  if Copy(folder, Length(folder), 1) = '\' then
    folder := Copy(folder, 1, Length(folder) - 1);
  st := copy(folder, 1, lastdelimiter('\', folder) - 1);
  st := copy(st, 1, lastdelimiter('\', st));
  st := copy(folder, length(st) + 1, length(folder));
  result := st;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(ToTilbage(application.ExeName));
end;

så får du 30 points xtra

ændret lidt i extractfilename funktion:

function ExtractURLFileName(const URL: string): string;
var
  I: Integer;
Const
  PathDelim  = '/';
  DriveDelim = '//';
begin
  I := LastDelimiter(PathDelim + DriveDelim, URL);
  Result := Copy(URL, I + 1, MaxInt);
end;

det kan du vel bruge til dit andet q

Fandt selv ud af det ;) Lavede en løkke eller hvad de hedder...

Tak for hjælpe!