{Delphi} Rozszerzenia

0

Znów muszę powtórzyc pytanie z przed kilku dni :-( :
Jak za pomocą kodu dopisywać rozszerzenie do nazwy pliku wpisanej w SaveDialogu, np mam 'Tekst sformatowany' oraz 'Dokument tekstowy'; jeśli wybiorę pierwsza opcję program dopisze .rtf, jesli drugą to doposze .txt.

0

Jeżeli wykorzystujesz SaveDialog to tam jest opcja DefaultExt, która jest automatycznie dodawana na koniec.
Jeżeli chcesz programowo to:

with SaveDialog do
case Filter of
0: FileName := FileName+'.rtf';
1: FileName := FileName+'.txt';
end;

Przy czym pierwszy wpis w filtrze to dot. rtf, a drugi txt.

0

a w czym wybierasz te typy plików, w comboboxie?

0

a w czym wybierasz te typy plików, w comboboxie?

W comboboxie okna do zapisywania.

0

with SaveDialog do
case Filter of
0: FileName := FileName+'.rtf';
1: FileName := FileName+'.txt';
end;

A dokladnie to gdzie to wstawić?

0

Tuż przed samym zapisywaniem.

0

Tuż przed samym zapisywaniem.

Dzięki [hurra]

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