Gem problem

Filter bruges kun ved indlæsning af filer. DefaultExt bliver brugt som filtype, hvis brugeren ikke angiver filtypen sammen med filnavnet.

I f.eks. word kan man jo vælge hvad endelsen skal være. Det jeg gerne vil har er sådan at brugerne kan vælge mellem de forskeldige formater.

Så skal du til at lave noget håndarbejde.
Når du vælger en anden filtype, skal filformatet også ændres.
Standard for RichEdit er RTF formatet. Sætter du PlainText=True bliver formatet TXT. Det er noget du skal styre for brugeren.

ok, hvordan gør jeg det?

Du laver en dropdownboks med 2 muligheder
1. RTF
2. TXT
Hvis TXT er valgt, sætter du DefaultExt til TXT og PlainText=True. Hvis RTF er valgt sættes DefaultExt til RTF

kan man gøre det i en savedialog?

Hvis du vil ha' mig til at lave det, skal du ryste op med nogle flere point :-)

Er 60 nok??

Ja-jeg kikker på det i dag.

Hermed en gemmeprocedure, hvor du kan vælge mellem de to filformater, der er mulige med en RichEdit.

procedure TForm1.Button1Click(Sender: TObject);
begin
  SaveDialog1.Filter:='RichTextFormat|*.rtf|Textfiler|*.txt';
  Savedialog1.FilterIndex:=1; //RTF-format
  if Savedialog1.execute then begin
    If Savedialog1.FilterIndex = 1 then begin
      RichEdit1.PlainText:=False;
      SaveDialog1.DefaultExt:='RTF';
    end else begin
      RichEdit1.PlainText:=True;
      SaveDialog1.DefaultExt:='TXT';
    end;
    RichEdit1.Lines.SaveToFile(SaveDialog1.Filename);
  end;
end;

NB.
Husk at sætte Savedialog1.FilterIndex = 0 i properies for komponenten.

Hvad gør PlainText? Jeg bruger næmlig synedit, og der er der ikke noget der hedder PlainText.

Nu har jeg fået det til at virke men nogle gange gemmer den bare det som en fil, alså test.fil

Prøv i SaveDialog-komponentens properties at sætte DefaultExt til RTF og FilterIndex til 1.

Nu virker det. Jeg takker