在Edit中提取字符

Question

如何在Edit中提取（左边第一个）字符？谢谢！

Answer 1

老大，如果要像Sql中类似于left（）,right（）,mid（）的功能呢！
谢谢！

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
begin
   s := LeftStr(Edit1.Text,1);
   showmessage(s)
end;

Answer 3

对！//*****
procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
begin
   s := LeftStr(Edit1.Text,1);
   showmessage(s)
end;
//*****
这些没用！

Answer 4

s := LeftStr(Edit1.Text,1);但是这条语句提取不了啊！

Answer 5

csnight(帅得拖网速)//////////你用的你的取个汉字，我看看

Answer 6

楼主如果涉及到汉字的话可以改成这样：
  copy(WideString(Edit1.Text),1,1);piao9wu(飘麟霄骥) ：
  你给的函数估计只有在后来的DELPHI版本里才有，而且多半也是像我这样实现的