如何分隔取出符号前后字符？

Question

比如：ok.exe
如何分别取出ok和exe?

Answer 1

var
  strList: TStrings;
begin
  strList:= TStringList.Create;
  strList.Delimiter:='.';
  strList.DelimitedText:='ok.exe';
  ListBox1.Items.Assign(strList);
  strList.Free;
end;

Answer 2

var
  str:string;
begin
  str := 'ok.exe';
  ShowMessage(Copy(str,1,Pos('.',str)-1));
  ShowMessage(Copy(str,Pos('.',str)+1,Length(str)- Pos('.',str)));
end;

Answer 3

var
  s : String;
  i : Integer;
begin
  s := 'ok.exe';
  i := Pos('.', s);
  if i <= 0 then
    ShowMessage ('无分隔符')
  else begin
    ShowMessage ('分隔符前面的内容:' + Copy(s, 1, i - 1));
    ShowMessage ('分隔符后面的内容:' + Copy(s, i + 1, Length(s) - i));
  end;
end;

Answer 4

如果你是要分割文件的名字和扩展名可以使用：
ExtractFileName和ExtractFileExt函数