Wyświetlenie nazwy pliku :: 4programmers.net

2010-12-21T02:36:49+01:00

Rejestracja: dni
Ostatnio: dni

Witam nie umie sobie poradzić z przypuszczalnie banalną rzeczą aczkolwiek może ktoś mi podpowie jak to ugryźć:

Otwieram plik OpenDialog1 np.film.avi i chce żeby np. w labelu1 pokazała mi się jego nazwa

Kopiuj

var
i: integer;
begin
if not OpenTextFileDialog1.Execute
  then ShowMessage('Open file was cancelled')
  else
  begin
    // Display the selected file names
    for i := 0 to OpenTextFileDialog1.Files.Count-1 do
     OpenTextFileDialog1.FileName := ansireplacetext(OpenTextFileDialog1.FileName, '.avi', '');
      label1.Caption :=  OpenTextFileDialog1.FileName;
  end;
end;

Ale zamiast pokazać sie nazwa pliku pokazuje mi się cała jego lokalizacja np. C:/costam/costam/plik.avi
Próbowałem też z
label1.Caption := OpenTextFileDialog1.Title;
ale po otwarciu pliku te pole ciągle jest puste...
Cóż tu zrobić by nazwa się pokazała?

madmike

2010-12-21T02:59:15+01:00

Rejestracja: dni
Ostatnio: dni

ExtractFileName + F1

Azarien

2010-12-21T08:02:30+01:00

Rejestracja: dni
Ostatnio: dni

if not OpenTextFileDialog1.Execute
then ShowMessage('Open file was cancelled')
Zazwyczaj użytkownik się spodziewa, że po naciśnięciu Anuluj nie stanie się nic, a nie wyskoczy jakiś głupi komunikat ;-)

pelsta

2010-12-21T08:35:59+01:00

Rejestracja: dni
Ostatnio: dni
Postów: 819

A do zmiany/usunięcia rozszerzenia nazwy pliku służy ChangeFileExt .

2010-12-21T12:43:12+01:00

Rejestracja: dni
Ostatnio: dni

Dzięki madmike że mnie oświeciłeś :)

Kopiuj

 var
nazwapliku : string;
begin
OpenTextFileDialog1.Execute;
OpenTextFileDialog1.Files.Count;
     OpenTextFileDialog1.FileName := ansireplacetext(OpenTextFileDialog1.FileName, '.avi', '');
     OpenTextFileDialog1.FileName := ansireplacetext(OpenTextFileDialog1.FileName, '.mkv', '');
     OpenTextFileDialog1.FileName := ansireplacetext(OpenTextFileDialog1.FileName, '.mp4', '');
     OpenTextFileDialog1.FileName := ansireplacetext(OpenTextFileDialog1.FileName, '.wmv', '');

  nazwapliku := OpenTextFileDialog1.FileName;
  label1.Caption:=(ExtractFileName  (nazwapliku));

end;