读取字符串的问题

Question

请问如何读取一个字符串的左边某个字符（例如第一个或第二个）？

Answer 1

1.自己用Pos,copy函数处理；
2.引用StrUtils单元，用LeftStr,或RightStr截取

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text:=LeftStr(Edit1.Text, 4); //从左边取了4个字符。
end;
试了一下，可以截取左（或右）边的任意（由参数确定）个字符。若要取出某一个字符（左或右），怎么办？

Answer 3

var
  APos: Integer;
...begin
  APos := Pos('a', Edit1.Text);  //取字符'a'
  if APos > 0 then Edit2.Text := Copy(Edit1.Text, APos - 1, 1)     //Edit1.Text中存在字符'a'
  else Edit2.Text := '';                                           //Edit1.Text中不存在字符'a'
end;

Answer 4

我最常用的方法是：引用StrUtils单元，用LeftStr,或RightStr截取 楼主可以搜一下delphi字符串函数，或者去我的资源里下载，有一份，很全的