字符串减法。奇怪的问题。怎么解决啊？

Question

procedure TForm1.ComboBox4Select(Sender: TObject);
var
    a,b:string;
begin
a:=combobox4.Text ;//可以取到值
b:=delete(a,0,3);//从A的第4位开始取值《-错就在这里。
.
.
.
.提示：[Error] Unit1.pas(588): Incompatible types: 'String' and 'procedure, untyped pointer or untyped parameter'

Answer 1

b:=delete(a,0,3);//从A的第4位开始取值《-错就在这里。
看你的注释，你是想取子串，应该用Copy啊
b:=Copy(a,0,3);

Answer 2

a:=combobox4.Text ;//可以取到值
delete(a,0,3);//从A的第4位开始取值《-错就在这里。
//use a
.
delete 是procedure 不是function
或者使用
b := copy(a, 4, length(a) - 3);

Answer 3

b:=delete(a,1,3);//从A的第4位开始取值《-错就在这里。

Answer 4

delete 是procedure 不是function，无返回值
procedure Delete(var S: string; Index, Count:Integer);
 aiirii(ari-爱的眼睛)说的对，index应该为1，不是0
a:=combobox4.Text ;//可以取到值
delete(a, 1, 3);//
b := a;