gem

Ved du på forhånd hvilken ekstension en given fil har??

Eller skal brugerne selv angive det?

For en save-dialog kan du angive masker i propertyen filter hvilke filendelser du vil kunne gemme som. Og desuden kan du i DefaultExt angive hvilken extension du vil have som standard.

Prøv det her

Var
  F : TextFile;
  S : String;
Begin
  S:=Memo1.Text;
  if SaveDialog1.Execute then
    begin
      If extractFileExt(SaveDialog1.FileName)='' Then
        AssignFile(F,SaveDialog1.FileName+SaveDialog1.Filter)
      Else
        AssignFile(F,SaveDialog1.FileName);
      Rewrite(F);
      Writeln(F,S);
      CloseFile(F);
    End;
End;


Eller endnu bedre:

Begin
    if SaveDialog1.Execute then
    begin
      If extractFileExt(SaveDialog1.FileName)='' Then
        Memo1.Lines.SaveToFile(SaveDialog1.FileName+SaveDialog1.Filter)
      Else
        Memo1.Lines.SaveToFile(SaveDialog1.FileName);
    End;
End;

--
Med venlig hilsen
Martin Johansen

Men det kommer fra news-gruppen og  Ole Mortensen, Primeware har givet dette svar ......

dk.edb.programmering.pascal

det var det der skullle til.
hilsen
stone

Irj's metode er den nemmeste.
hilsen
steen