Domyślny tekst w savedialog

Odpowiedz Nowy wątek
2006-12-26 19:54

Rejestracja: 13 lat temu

Ostatnio: 13 lat temu

0

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);

Pozostało 580 znaków

2006-12-26 19:57

Rejestracja: 17 lat temu

Ostatnio: 4 miesiące temu

Lokalizacja: UE

0
SaveDialog.DefaultExt := 'osr';

Pozdrawiam. Karol

Pozostało 580 znaków

Odpowiedz

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0