关于字符串的问题的问题

Question

有这样一些String
121312#324234
3332443243#3213123
342344#213213
.....
现在只想保留#号前面的部分,请问该怎么办,想用 
StringReplace(ZipList.GetCurFileName,'#','',[rfReplaceAll]);可是只能替换掉#号,后面的不能替换掉

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  Str: string;
begin
  Str := '121312#324234' +
    '3332443243#3213123' +
    '342344#213213';
  Str := Copy(Str, 1, Pos('#', Str) - 1);
  ShowMessage(Str); // 121312
end;