สอบถามการเขียนแยกตัวอักษรครับ

[Bond_007]

เช่น
MyQuery.FieldValues['master_code'] := 7440001
เมื่อกดปุ่ม button แล้วผมอยากให้ DBedit1.text ที่มีค่าว่างเปล่า  เก็บค่าเป็น 7440-001 แบบนี้ต้องเขียนยังไงครับขอบคุณครับ

[apisak]

ไม่รู้ว่าใช่เปล่า
procedure TFtf.RzButton1Click(Sender: TObject);
begin
qtf.SQL.Text :=('SELECT co_office.off_name,(SUBSTRING(filename,11,8)) AS val FROM zreport_importstat  INNER JOIN co_office ON zreport_importstat.pcucode = co_office.off_id where SUBSTRING(filename,11,8)  between "'+(formatdatetime('yyyymmdd',RzDateTimeEdit1.Date))+'" and "'+(formatdatetime('yyyymmdd',RzDateTimeEdit2.Date))+'" group by pcucode ');
qtf.Open;
end;

[nongnine]

โค๊ด: [Select]

procedure Button1Click
begin
DBedit1.text:=copy(MyQuery.FieldValues['master_code'],1,4)+'-'+copy(MyQuery.FieldValues['master_code'],5,4);
end;


[Bond_007]

copy(MyQuery.FieldValues['master_code'],1,4) คำสั่ง copy ใช้ยังไงครับ อยากรู้มานาน

โค๊ด: [Select]

procedure Button1Click
begin
DBedit1.text:=copy(MyQuery.FieldValues['master_code'],1,4)+'-'+copy(MyQuery.FieldValues['master_code'],5,4);
end;


[nongnine]

copy(MyQuery.FieldValues['master_code'],1,4) คำสั่ง copy ใช้ยังไงครับ อยากรู้มานาน

โค๊ด: [Select]

procedure Button1Click
begin
DBedit1.text:=copy(MyQuery.FieldValues['master_code'],1,4)+'-'+copy(MyQuery.FieldValues['master_code'],5,4);
end;


เหมือน substr ครับ