Delphi-PRAXiS - Einzelnen Beitrag anzeigen

**nuclearping**

Delphi-Quellcode:

			var Ext: String;

begin

  Ext := ExtractFileExt('Filename.txt');

  if (Pos('.', Ext) = 1) then

    Delete(Ext, 1, 1);

end;

nuclearping Registriert seit: 7. Jun 2008 708 Beiträge Delphi 10.2 Tokyo Professional	#10 AW: Dateiendung ohne Punkt 24. Jan 2014, 18:49 markieren Delphi-Quellcode: var Ext: String; begin Ext := ExtractFileExt('Filename.txt'); if (Pos('.', Ext) = 1) then Delete(Ext, 1, 1); end;
	Zitat