filnavn?

mener du extractfilename(string);

ZeroHero

Nej, den finder hele navnet filnavn.jpeg. Jeg skal bruge det så den kun finder filnavn og kopiere .jpeg fra!

Hej dette skulle gøre det:

function DropFileExtension(Source: string): string;
var
Src,oldSubStr, NewSubStr: string;
P: integer;
begin
Src := ExtractFileName(Source);
OldSubStr:=ExtractFileExt(src);
NewSubStr:=\'\';

P := Pos(OldSubStr, Src);
if (OldSubStr = \'\') or (OldSubStr = \'\') or (P = 0) or (Src = OldSubStr) then begin
Result := Src;
Exit;
end;
while (P > 0) do begin
delete(Src, P, Length(OldSubStr));
insert(NewSubStr, Src, P);
P := Pos(OldSubStr, Src);
end;
Result := Src;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.text:=DropFileExtension(\'jason.txt\');
end;


Dennis

jamen så træk dog bare filextractfileext() fra filextractfilename()...

eksempel: når du trykker på knappen åbner opendialog1 og du vælger en tilfældig fil - når du trykker \"ok\", vil du se resultatet i formen\'s caption-bar...

procedure TForm1.Button1Click(Sender: TObject);
var
  s1, s2 : string;
begin
with opendialog1 do
begin
  if execute then
  begin
    s1 := extractfilename(filename);
    s2 := extractfileext(filename);
    if pos(s2,s1) > 0 then
    s1 := copy(s1,0,pos(s2,s1)-1);
    form1.caption := s1;
  end;
end;
end;

ZeroHero

Kære venner det er ikke så svært man bruger bare

ChangeFileExt(ExtractFileName(\'MyImage.jpg\'),\'\');

Så får man en string der indeholder \'MyImage\'

Genialt Enkelt, Ganske Enkelt Genialt !! *GG*

/Martin

MartinLind>> cool!!! :-))

Ja ok, det havde jeg nu også tænkt på...
Men jeg bruger altid den function jeg har posted, så declare jeg bare det her some public:
Src,oldSubStr, NewSubStr: string;
Og så har jeg al path information om filen :p

Dennis

DKN >> Det er da spild, du alle funktioner til at få det du skal bruge i delphi, har du overvejet hvor dine programmer fylder 200mb *S*

/MArtin

jeg plejer at bruge
LastDelimiter(\'.\', \'Filnavn.ext\')
(kan ikke lige huske om det \'.\' til sidst)
Og så kopiere jeg fra start til det Lastdelimiter giver med Copy.
martinlind>> men dit er vidst bedst:)