defaultExt

Man kan kun vælge en extension til at være default, da det er den extension filnavnet får når den gemmes uden andet angives.
Det du skal have fat i er Filter og FilterIndex properties. I Filter kan du definere de forskellige filtre der ledes efter, her kan være flere filtre med flere extensions hver.
FilterIndex vælger hvilken et af de definrede filter der vises som default i boksen.

jeg har defineret rtf, txt, men den gemmer ikke i den definerede extension
uden man skriver f.eks. "test.txt"

når man gemmer og vælger i dialogbox
den extension den gemte fil skal have,
vælger den kun den første som er defineret i filterindex.

det skulle gerne være sådan at den automatisk gemmer i den valgte extension
i savedialog.

fehaar
du er inde på det rigtige - men jeg kan ikke få det til at virke

Jeg tager lige og prøver det af, så giver jeg dig et resultat.

Jeg gør det altid "manuelt" sådan her:

procedure TForm1.Button1Click(Sender: TObject);
var
  tmpLen: Integer;
  tmpExt, tmpName: string;
begin
  if SaveDialog.Execute then
  begin
    tmpLen := Length(SaveDialog.Filename);
    tmpName := SaveDialog.Filename;
    tmpExt := tmpName[tmpLen - 3] + tmpName[tmpLen -2] + tmpName[tmpLen - 1] + tmpName[tmpLen]; // Du skal måske trække en mere fra
    if not (tmpExt = '.txt') and not (tmpExt = '.rtf') then
    begin
      if SaveDialog.FilterIndex = 1 then
        tmpName := tmpName + '.rtf'
      else
        tmpName := tmpName + '.txt';
    end;
      Rich.Lines.SaveToFile(tmpName);
  end;
end;

du skal nok ændre end del men det finder du nok ud af.

I en teksteditor, hvor skal jeg placere
det, I "save" eller saveAs.

Hvis du har andre spørgsmål kan du bare maile mig

hvis det er dig der laver stoneware.
så er det med den sætter .txt også hårdt tiltrængt

kaspar_p@post.cybercity.dk
htx97b12@gts.dk