[Sanek_ntsk]

как сделать так чтобы когда в сейвдиалоге пишешь имя(title) файла и при сохранении вместе с файлом писался формат(например .jpg), который указан под названием

[Ozerich]

Код:

var
l:integer;
s:string;
begin
s:=savedialog1.filename;
l:=length(extractfileext(s));
delete(s,length(s)-l+1,l);
и потом сохраняй в s

[Sanek_ntsk]

не контачит

var s:string;
l:integer;
begin
if savepicturedialog1.Execute then begin
s:=savepicturedialog1.FileName;
l:=length(extractfileext(s));
delete(s,length(s)-l+1,l);
image1.Picture.SaveToFile(s);
end;

[Ozerich]

Код:

var s:string;
l:integer;
begin
if savepicturedialog1.Execute then begin
s:=savepicturedialog1.FileName;
l:=length(extractfileext(s));
delete(s,length(s)-l+1,l);
image1.Picture.SaveToFile(s+'.JPG');
end;

[Sanek_ntsk]

спасиб большое