{Delphi} c.d tematu Open/Save (generale Dryobates - czytaj

Po wduszeniu 'Anuluj' program mówi, że nie może utworzyć pliku - wyskakuje taki error: <font color="red">Nazwa pliku, nazwa katalogu lud składnia etykiety woluminu jest niepoprawna</span> :-0.
Kod:
[code]procedure TForm.ButtonClick(Sender: TObject);
begin
SaveDialog.Execute;
if SaveDialog.FileName '' then
begin
RichEdit.Lines.SaveToFile(SaveDialog.FileName);
end;
end;[/code]

Kod do analizy dla <font color="darkblue">gen. Dryobatesa</span>:
[code]procedure TForm.ButtonClick(Sender: TObject);
begin
SaveDialog.Execute;
with SaveDialog do
if SaveDialog.FileName '' then
begin
with SaveDialog do
case FilterIndex of
0: DefaultExt := '.rtf';
1: DefaultExt := '.txt';
end;
if SaveDialog.DefaultExt = '.rtf' then
begin
RichEdit.PlainText := False;
end
else
begin
RichEdit.PlainText := True;
end;
RichEdit.Lines.SaveToFile(SaveDialog.FileName);
end;
end;[/code]
Problem z tym jest taki:

• po wduszeniu anuluj w SaveBoxie plik jest zapisywany :-/
• po wybraniu typu pliku do zapisu jako plik rtf, jest zapisywany z rozszerzeniem rtf, ale jako plik tekstowy ;-(

Wotek, a czemu nie robisz:
[code]procedure TForm.ButtonClick(Sender: TObject);
begin
if SaveDialog.Execute then
begin
with SaveDialog do
case FilterIndex of
0: DefaultExt := '.rtf';
1: DefaultExt := '.txt';
end;

    if SaveDialog.DefaultExt = '.rtf' then
       RichEdit.PlainText := False
    else
       RichEdit.PlainText := True;
  RichEdit.Lines.SaveToFile(SaveDialog.FileName);

end;
end;[/code]

Wotek, a czemu nie robisz (...)

Będę robił tak jak mówisz :-)