只要文件名，而不要扩展名？

Question

谢谢！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  tmpStr :String;
begin
  tmpStr :=ExtractFileName(Application.ExeName);
  showmessage(copy(tmpStr,1,pos(ExtractFileExt(Application.ExeName),tmpStr)-1));
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  str2:string;
  j:integer;
begin
  if OpenDialog1.Execute then
     begin
       j := pos('.',extractfilename(OpenDialog1.FileName));
        str2 := copy (extractfilename(OpenDialog1.FileName),1,j-1);
  end;
end;

Answer 3

同意2312(007)写的代码，关键函数：POS。