Dateiendung anhängen

[rudpower]

ich möchte, dass während der Eingabe eines Strings in eine Editkomponente die Endung ".txt" angehängt wird, wenn diese fehlt. Wie macht man das?
Anfügen würd ich mit

E_Dateiname->Text.Insert(".txt",E_Dateiname->Text.Length - 4);

//E_Dateiname ist hier das Editfeld

[akari]

Hallo

Dafür kannst du die VCL-Funktion ChangeFileExt benutzen.

bis bald
akari

[rudpower]

vielen Dank. Es funktioniert:
Habs auf das Change Ereignis des Editfelds gelegt:

void __fastcall TForm1::E_DateinameChange(TObject *Sender)
{
   E_Dateiname->Text = ChangeFileExt(E_Dateiname->Text, ".txt");
}