Pos & Copy liefert bei zu langen Strings falsches Ergebnis

[Nils_13]

Hi,

ich möchte von einer Datei, egal wie lang der Name ist, die Endung herausfinden. Dazu benutze ich Pos und Copy. Bei zu langen Dateinamen liefert Copy allerdings ein falsches Ergebniss zurück. Die betroffenen Zeilen sind mit Pfeilen markiert.

Delphi-Quellcode:

TID3Tag = record                       
  ID: Array[0..3] of Char;
   Titel: Array[0..30] of Char;
   Artist: Array[0..30] of Char;
   Album: Array[0..30] of Char;
   Year: Array[0..4] of Char;
   Comment: Array[0..30] of Char;
   Genre: Byte;
   Filename: String;
   Endung: String;   <--
end;

function TfrmMain.ReadID3Tag(const FileName: String): TID3Tag;
var i : Integer;
begin
  FillChar(Result, SizeOf(Result), 0);
  with TFileStream.Create(FileName, fmOpenRead or fmShareDenyNone) do
  try
    Position := Size - 128;
    Read(Result.ID, 3);
    Read(Result.Titel, 30);
    Read(Result.Artist, 30);
    Read(Result.Album, 30);
    Read(Result.Year, 4);
    Read(Result.Comment, 30);
    Read(Result.Genre, 1);
    Result.Filename := Filename;
    i := Pos('.' , Filename);         <--
    Result.Endung := UpperCase(Copy(Filename, i + 1, Length(Filename))); <--
    ShowMessage(Result.Endung); <-- bei zu langen Dateinamen kommt z.B. safhdfagshfghds.mp3 als           Rückgabewert an, bei kurzen Dateinamen läuft alles
  finally
    Free;
  end;
end;

Ich weiß nicht, ob die Methode gut ist, denn es gibt schließlich doch Leute, die . in einen Dateinamen reinschreiben, dann bricht natürlich bei dem Programm alles zusammen, aber da sind es nicht immer 3 Zeichen lange Endungen sondern auch teilweise 4, wie z.B. MPEG oder AIFF.

[Meflin]

Na dann weise ich dich mal dezent auf ExtractFileExt hin ;)

[Klaus01]

Warum nutzt Du denn nicht ExtractfileExt?

Grüße
Klaus

[Nils_13]

:twisted: schon wieder diesen Befehl vergessen. :twisted: Danke!

[Khabarakh]

Auch wenn es ExtractFileExt gibt, wäre es klüger, nach dem letzten und nicht nach dem ersten Punkt zu suchen ;) .