namenslänge beim speichern begrenzen

[DeddyH]

Im Ausgangspost steht sinngemäß "15 Zeichen ohne Endung", daher würde ich das noch etwas erweitern:

Delphi-Quellcode:

if SaveDialog.Execute then
  begin
    if Length(ChangeFileExt(ExtractFileName(SaveDialog.FileName),'')) > 15 then
      ShowMessage('Name ist zu lang')
    else
      //Datei speichern
  end;