Eine Dateierweiterung *.txt entfernen?

[City Light]

Hehe ich hätte noch ein

Delphi-Quellcode:

procedure TForm5.Button1Click(Sender: TObject); 
begin 
if OpenDialog1.Execute then 
  SynEdit1.Lines.LoadFromFile(OpenDialog1.FileName); 
  if Edit1.Text = '' then 
    Edit1.Text := ExtractFileName(ChangeFileExt(OpenDialog1.FileName,'')); 
end;

Noch mals danke

Gruß ,Tino