AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Dateiname ohne Endung

Ein Thema von danku · begonnen am 1. Jun 2007 · letzter Beitrag vom 3. Jun 2007
 
Benutzerbild von danku
danku

Registriert seit: 9. Apr 2006
Ort: 32-bit Adressbus
181 Beiträge
 
Delphi 7 Enterprise
 
#1

Dateiname ohne Endung

  Alt 1. Jun 2007, 17:04
Hi ihr

Ich lade über einen TOpendialog i Dateien in eine Stringgrid.
Sobald der Dateiname größer als eine bestimmte Anzahl Zeichen ist (in meinem Bsp. 26)
dann soll der Dateiname "gekürzt" werden, d.h. es sollen 2 Punkte gesetzt werden und die Endung noch hinzugefügt werden.

Bsp:

Dateiname über Opendialog: testtesttestestestestesteste.mp3
Neuer Dateiname: testtesttestestestestestest..mp3

Praktisch habe ich es so versucht:

Delphi-Quellcode:
  
  function ohne_erweiterung(dateiname:string):string;
  var endung:string;
  begin
      endung := ExtractFileExt(dateiname);
      //string dateiname, von Punkt ab bis Endung löschen
      Delete(dateiname,Pos('.', dateiname),length(endung));
  end;

///jetzt wird der opendialog aktiviert////

  if length(ExtractFileName(opendiag.FileName)) >35
   then begin
   //BSP-Datei: testxxxx.mp3

     MyFilesExtension := ExtractFileExt(opendiag.FileName);

     AlterDateiname:= ExtractFileName(ohne_erweiterung(opendiag.FileName));
     
     //lösche die Length(Dateinamen)-26 -> Variable speichern

    // Delete(AlterDateiname, 26, length(AlterDateiname)-26);

    showmessage(ohne_erweiterung(NeuerDateiname));

     NeuerDateiname := AlterDateiname + '..' + MyFilesExtension;

das problem ist bloß dass in der messagebox nix erscheint. ;(
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:05 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz