Delphi String zählen und bis zum Punkt entfernen

[Back2Code]

Hi DP,

ich bin dabei einen String zu zählen und weiß aber nicht genau wie ich dann bei dem String alles entferne von hinten bis zum Punkt (BSP : test.txt ----> test)


Bis jetzt siehts so bei mir aus :

Delphi-Quellcode:

function ChangeExtension(const filename, extension : string) : string;
var i : Integer;
begin
  for i:= Length(filename) downto 1 do