Url henvisning

Du kan enten bruge en relativ sti:
"mitbillede.gif" hvis du står i samme mappe f.eks.
eller en absolut sti:
"http://www.minhjemmeside.dk/underbibliotek.filnavn.htm"

Det eneste du ikke må på internettet er at bruge drevbogstaver som c:\minmappe\osv

Du går et trin op i filhierakiet ved at skrive f.eks. "../mitbillede.gif"

boris: Du har vist glemt at kigge hvilken kategori du befinder dig i ;)

hestehoften: Prøv med nedenstående:

procedure TForm1.Button1Click(Sender: TObject);
var
  tmpstr: String;
begin
  tmpstr := 'C:\\minmappe\mitBillede.gif';
  tmpstr := '../' + ExtractFileName(tmpstr);
  showmessage(tmpstr);
end;


Snowball

snowball, hvordan kan nogen være vågen på denne tid af natten? :-)

procedure TForm1.Button1Click(Sender: TObject);
var
  tmpstr: String;
begin
  tmpstr := 'C:\\minmappe\mitBillede.gif';
  tmpstr := '../' + ExtractFileName(tmpstr);
  showmessage(tmpstr);
end;

Denne virker i dette tilfælde !! MEN
Jeg vil gerne undersøge stien, og ændre den til den rette relative sti, da de filer hvortil jeg skal have konverteret stien, jo kan ligge hvorsomhelst.

håber i forstår hvad jeg mener.

function CountPos(const subtext: string; Text: string): Integer;
begin
  if (Length(subtext) = 0) or (Length(Text) = 0) or (Pos(subtext, Text) = 0) then
    Result := 0
  else
    Result := (Length(Text) - Length(StringReplace(Text, subtext, '', [rfReplaceAll]))) div Length(subtext);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
  tmpstr1, tmpstr2: String;
begin
  tmpstr1 := 'C:\minmappe\mappe1\mappe2\mitBillede.gif';
  tmpstr2 := '';
  For I := 0 To CountPos('\', tmpstr1) -2 Do
    tmpstr2 := tmpstr2 + '../';

  tmpstr2 := tmpstr2 + ExtractFileName(tmpstr1);
  showmessage(tmpstr2);
end;

Snowball

brugte bare ExtractRelativePath