Eine Dateierweiterung *.txt entfernen?

[thomasdrewermann]

Versuchs mal damit:

Code:

procedure TForm5.Button1Click(Sender: TObject);
var i:integer; s:string;
begin
if OpenDialog1.Execute then
  SynEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
  if Edit1.Text = '' Then
  Edit1.Text := ExtractFileName(OpenDialog1.FileName);
  for i:=1 to length(edit1.text)-4 do
    s:=s+edit1.text[i];
  edit1.text:=s;
end;