Udvalg i string

s:=extractfilename('C:\Program\Olebole\Gik\Test.ini');
p:=pos('.',s);
if p>0 then s:=copy(s,1,p-1);

erik, meget fint, men hvis der nu er et . i filnavnet? Det er jo tilladt under win95 :o)

extractfileending kan vistnok bruges (måske hedder den noget andet) - og den kan så bruge stil pos-søgningen.

Nu er jeg ikke lige hjemme til at afprøve det, men vil overstående ikke give

Test.Ini ?

Jeg skal "af" med ini også

Arrhhh - nu tror jeg den fes ind, hvis positionen er større end . 
Så indsætter den ikke - du får point, når jeg har testet den

Joh, såmænd, lrj. Men til hans fakiske spørgsmål, med filnavnet "C:...\Test.ini" er det jo rigtigt :-)

Prøv:

s:=extractfilename('C:\Program\Olebole\Gik\Test.ini');
p:=rpos('.',s);
if p>0 then s:=copy(s,1,p-1);

hvis der havde været en rpos-funktion, det er det ikke, så den skriver vi
selv:


  function rpos(c: char; s: string): integer;
  var i: integer;
  begin
    result:=-1; i:=length(s);
    while (result=-1) and (i>=1) do
    begin
      if s[i]=c then
        result:=i
      else
        dec(i)
    end;
  end;

(Variant over søgeskabelonen)

Hvad med:

S := ExtractFileName(FilNavn);
Delete(S, Length(S) - Length(ExtractFileExt(s)) + 1, Length(ExtractFileExt(s)));

Ved det er meget a la det der allerede er givet som svar...

Michael

Ja, MIchael, det er det lrj foreslår. Bestemt en mulighed. Hvorfor
er der ikke en "rpos" i Delphi - eller er der? Jeg er åbenbart efterhånden
blevet for vant til ASP, PHP hvor den, selvfølgelig, er der (med et
andet navn).

erik> Well, den slags streng-manipulation er Delphi ikke helt udstyret til - man må selv ned og pille med lidt kode... Tror forresten nok det er blevet bedre i 5'eren, meen...