saveDialog, расширение Опции

[Client]

Привет!
Я хочу создать файл с выбранным расширением. Использую saveDialog. В лейбл вывожу имя файла, но файл не имеет расширения. Как из saveDialog'а вытащить выбраное расширение? Название файла ввел - "пример".
И как создать файл в дельфи? assign и rewrite? или есть другие способы?

Сообщение отредактировано: Client - 7.05.2009 21:19

[volvo]

Надо вытягивать расширение из поля Filter и приклеивать его к имени файла. Вот пример:

procedure TForm1.Button1Click(Sender: TObject);
var
  sL: TStringList;
  ix: Integer;
begin
  if SaveDialog1.Execute() then begin
    sL := TStringList.Create;
    try
      ix := 2 * Pred(SaveDialog1.FilterIndex);
      ExtractStrings(['|'], [], PChar(SaveDialog1.Filter), sL);
      ShowMessage(SaveDialog1.FileName + Copy(sL[ix], 2, Length(sL[ix]) - 1));
    finally
      sL.Free;
    end;
  end;
end;

И как создать файл в дельфи? assign и rewrite? или есть другие способы?

Да там способов - миллион... Можно заполнить данными тот же TStringList и потом записать его в файл (SaveToFile)... Все зависит от того, какой файл тебе нужен в результате, что он содержать должен.