Überprüfen, ob Dateiname eine bestimmte Endung hat

[Illuminator-23-5]

Delphi-Quellcode:

while pos(',', endungen) > 0 do begin
  Endungsliste.Hinzufügen(copy(endungen, 1, pos(',')-1));
  delete(endungen, 1, pos(','));
end;