Mam problem ponieważ napisałem program który korzysta z własnego rozszerzenia, a jak zauważyłem po wielu próbach zapis pod danym formatem udało mi się uzyskać gdy po nazwie zapisanego pliku rozszerzenie dodałem po kropce. np plik.osr.
Jak zapisać w kodzie instrukcję dzięki której po wywołaniu savedialog'u domyślnie będzie widoczny format np
*.osr lub by automatycznie dopisywał do nazwy rozszerzenie?
Do zapisu używam kodu:
procedure TForm1.Zapisz1Click(Sender: TObject);
var
FileStream : TFileStream;
begin
savedialog1.Execute;
if FileExists(trim(savedialog1.FileName) ) then
FileStream := TFileStream.Create(savedialog1.FileName, fmOpenWrite) else
FileStream := TFileStream.Create(savedialog1.FileName, fmCreate);
FileStream.WriteComponent(edit1);