Problem mit TXT Datei

Wie kann ich es so einstellen, dass es automatisch als TXT Datei
gespeichert wird ??? (Ich möchte nicht unnötig immer ".txt" dahinter schreiben,
es soll automatisch gehen)

Habe folgendes probiert:

void __fastcall TForm1::SaveClick(TObject *Sender) 
{ 
   SaveDialog1->Filter = "Textdateien|*.TXT"; 
   if (SaveDialog1->Execute()) 
  Memo1->Lines->SaveToFile(SaveDialog1->FileName); 
}

Da wird zwar "Dateityp" automatisch auf "Textdateien" gestellt,
allerdings wird es nicht als ".txt" gespeichert, sodass ich es mit dem Editor
öffnen kann. Zu sehen ist nur ein weißes Blatt (icon) und wenn ich es öffne
kann ich zwischen Zahlreichen Programmen wählen, womit ich es öffnen möchte^^!

Th69

Du suchst die Eigenschaft DefaultExt

Th69 schrieb:

Du suchst die Eigenschaft DefaultExt

SUPER vielen dank, habe gerade DefaultExt auf "txt" und es klappt perfekt
danke