Dateiname ohne Endung

[danku]

hehe oh ja. return wollte der mir als rückgabewert nicht nehmen

es geht erst mal, vielleicht entpuppt sich doch noch ein neuer bug.. oh ja..

Delphi-Quellcode:

for i:=0 to opendiag.files.count -1 do
   begin

    if length(ExtractFileName(opendiag.FileName[i])) >35 then
      begin
      MyFilesExtension := ExtractFileExt(opendiag.FileName);
      AlterDateiname:= ExtractFileName(ohne_erweiterung(opendiag.FileName));
      NeuerDateiname := AlterDateiname + '..' + MyFilesExtension;
      end
      else NeuerDateiname:= ExtractFileName(opendiag.FileName);

   //i-Werte in StringGrid
   sender.cells[0,1+i]:= NeuerDateiname; //ExtractFileName(opendiag.Files[i]);
   sender.cells[1,1+i]:= Extractfilename(opendiag.Files[i]);
   sender.cells[2,1+i]:= floattostr(FileSize (opendiag.Files.Strings[i]) div 1024);

   end;

so funzt das erst mal. nur wie bekomm ich das noch hin das der in die erste spalte wirklich auch nur den i-werte hineinschreibt und nicht immer den gleichen