logo elektroda
logo elektroda
X
logo elektroda
REKLAMA
REKLAMA
Adblock/uBlockOrigin/AdGuard mogą powodować znikanie niektórych postów z powodu nowej reguły.

[Delphi] FileName. Jak z nazwy mp3 usunąć oznaczenie dysku i katalogu?

kristof123 13 Sie 2007 19:21 1256 3
REKLAMA
  • #1 4174886
    kristof123
    Poziom 17  
    Posty: 332
    Pomógł: 3
    Ocena: 29
    Witam !
    Piszę odtwarzacz mp3 i mam przycisk i listę utworów (Memo).

    procedure TForm1.Button1Click(Sender: TObject);
    begin
       if OpenDialog.Execute then
          MediaPlayer.FileName :=OpenDialog.FileName;
          Memo1.Text := OpenDialog.FileName;  //napis na liscie
    end;


    Po załadowaniu pliku mp3 wyświetla mi w Memo tytuł utworu ale dodatkowo jeszcze wyświetla mi literę dysku i katalog w którym znajduje się utwór .Problem w tym że ja bym chciał żeby wyświetlał mi tylko tytuł utworu bez litery dysku i katalogu .Podejrzewam że trzeba zmienić funkcję FileName na inną , ale na jaką .
    Dziękki za podpowiedzi
  • REKLAMA
  • #2 4174997
    myrcioch
    Poziom 18  
    Posty: 150
    Pomógł: 30
    Ocena: 5
    OpenDialog.FileName jest w porządku, musisz tylko wyciągnąć z niego samą nazwę pliku. Odpowiednie funkcje znajdziesz w SysUtils - tutaj akurat będzie potrzebne ExtractFileName.
  • REKLAMA
  • #3 4175296
    kristof123
    Poziom 17  
    Posty: 332
    Pomógł: 3
    Ocena: 29
    Ale jak tu zastosować ExtraFileName próbowałem na różne sposoby i nic mi nie wychodzi .
  • Pomocny post
    #4 4175909
    mirekk36
    Poziom 42  
    Posty: 9195
    Pomógł: 964
    Ocena: 2289
    Cytat:
    procedure TForm1.Button1Click(Sender: TObject);
    begin
    if OpenDialog.Execute then
    begin
    MediaPlayer.FileName :=OpenDialog.FileName;
    Memo1.Text := ExtractFileName(OpenDialog.FileName); //napis na liscie
    end;
    end;
REKLAMA