简单问题，请大家进入拿100分！！(100分)

fphuang · 2003-01-06

procedure TForm1.Button1Click(Sender: TObject);
var
b,a:string;
begin
a:=edit1.text;
b:=leftstr(a,4);
edit2.Text:=b;
end;

fphuang · 2003-01-06

leftstr不能直接使用吧，我应该如何做，清说的详细一些！！！

Awen.ZW.Yang · 2003-01-06

b:=copy(a,1,4);

xzh2000 · 2003-01-06

在delphi中只有使用copy，同意楼上。

ysai · 2003-01-06

uses StrUtils

一生中最爱 · 2003-01-06

来晚了，hehe

一少 · 2003-01-06

对,uses StrUtils
leftstr在这表单里面

delphiwbh · 2003-01-06

同意Awen.ZW.Yang

meet · 2003-01-06

不知何意請詳述一下＠

lbylby · 2003-01-06

可以用啊！在USEs那加一个StrUtils就可以了！

fphuang · 2003-01-06

接受答案了.