BMS-HOSxP Community

HOSxP => Delphi / Pascal => ข้อความที่เริ่มโดย: Bond_007 ที่ มิถุนายน 06, 2013, 16:48:50 PM

หัวข้อ: สอบถามการเขียนแยกตัวอักษรครับ
เริ่มหัวข้อโดย: Bond_007 ที่ มิถุนายน 06, 2013, 16:48:50 PM

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

หัวข้อ: Re: สอบถามการเขียนแยกตัวอักษรครับ
เริ่มหัวข้อโดย: apisak ที่ กรกฎาคม 12, 2013, 16:59:35 PM

ไม่รู้ว่าใช่เปล่า
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;

หัวข้อ: Re: สอบถามการเขียนแยกตัวอักษรครับ
เริ่มหัวข้อโดย: nongnine ที่ กรกฎาคม 13, 2013, 07:30:46 AM

โค๊ด: [Select]

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


หัวข้อ: Re: สอบถามการเขียนแยกตัวอักษรครับ
เริ่มหัวข้อโดย: Bond_007 ที่ กรกฎาคม 13, 2013, 08:48:24 AM

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

อ้างจาก: nongnine ที่ กรกฎาคม 13, 2013, 07:30:46 AM

โค๊ด: [Select]

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


หัวข้อ: Re: สอบถามการเขียนแยกตัวอักษรครับ
เริ่มหัวข้อโดย: nongnine ที่ กรกฎาคม 13, 2013, 10:07:29 AM

อ้างจาก: Bond_007 ที่ กรกฎาคม 13, 2013, 08:48:24 AM

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

อ้างจาก: nongnine ที่ กรกฎาคม 13, 2013, 07:30:46 AM

โค๊ด: [Select]

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


เหมือน substr ครับ