Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
16. Dez 2009
Im Ausgangspost steht sinngemäß "15 Zeichen ohne Endung", daher würde ich das noch etwas erweitern:if SaveDialog.Execute then
begin
if Length(ChangeFileExt(ExtractFileName(SaveDialog.FileName),'')) > 15 then
ShowMessage('Name ist zu lang')
else
//Datei speichern
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
15. Dez 2009
Meinst Du etwas in dieser Art?if SaveDialog.Execute then
begin
if Length(ChangeFileExt(SaveDialog.FileName,'')) > 15 then
ShowMessage('Name ist zu lang')
else
//Datei speichern
end;