Eine Dateierweiterung *.txt entfernen?

[City Light]

Kein Punkt mehr

Delphi-Quellcode:

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

Danke

[Daniel B]

Kleiner Tip noch:

Delphi-Quellcode:

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

Grüsse, Daniel

[edit=Daniel B]Ein end; vergessen.[/edit]

[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