หน้าแรก
 การบ้าน
  C/C++ new
  Java new
 Sourcecode.TV
  Android
  Blackberry
  C/C++
  Java
  Linux
  Windows Phone
  แจ้งเรื่องที่ต้องการ
 บทความ
  .NET
  Android
  Blackberry
  C++Builder
  Delphi
  Java
  Mobile
  Open Source
  Pocket PC
  Visual Basic
  Web
  Windows Phone
  Others
 แบบเรียนฟรี
  ASP
  ASP.NET Webmatrix
  C++
  eVB
  J2ME
  Java
  PHP
 ซอร์สโค้ด
  Android
  ASP
  C++
  VC++
  CGI-Perl
  Delphi
  Java
  jQuery
  PHP
  Visual Basic
  .NET
 บริการจากเรา
  เปิดท้าย... ขายโค้ด
  DoodeeHosting
  รับออกแบบ พัฒนาเว็บไซต์
  Freeware
  อัตราค่าโฆษณา
  รายชื่อลูกค้า
  สถิติผู้เข้าเว็บ
 ดาว์นโหลด
 ค้นหาข้อมูล
 กระดานสนทนา
  .NET
  C/C++
  Delphi
  Java
  Palm/PocketPC
  Visual Basic
  Web
  อื่นๆ
 กระดานงาน
 ลิงค์เว็บ
 เกี่ยวกับผม
 อัตราค่าโฆษณา
Social Network

Facebook  Twitter  YouTube
 New Article
 Webboard
 Freelanceboard
Freeware
โปรแกรมเบอร์ดี (BerDee)
โปรแกรมเบอร์ดี (Android)
เกมส์เป่ายิ้งฉุบ
เกมส์เป่ายิ้งฉุบ(Android)
WebcamMonitor
WebcamMonitor(Windows)
scSendMail
scSendMail(Windows)
MSN Caption
MSN Caption(Windows)
  Freelance comment
  ติดต่อสอบถามมาได้ตลอดนะครับ...
2015-07-29 13:35:58
  ถ้าผมต้องการเว็บที่พัฒนาด้วย HTML5 ...
2015-01-18 15:33:54
  ถ้าผมต้องการเว็บที่พัฒนาด้วย HTML5 ...
2015-01-18 15:32:51
  ติดต่อสอบถามเข้ามาได้นะคับ
งานเล...

2014-01-06 12:47:38
  ถ้ายังหาคนสอนไม่ได้ ก็ลองศึกษาเองได...
2013-07-06 01:04:37
  สนใจส่งขอบเขตมาคุยราคาก่อนได้นะคับ...
2013-03-24 18:54:20
  ถ้ายังไม่มีคนรับงานติดต่อได้ครับ 08...
2012-12-16 19:18:14
  สนใจคะ ติดต่อ 0905076277...
2012-11-12 11:07:46
  รับทำโปรเจ็คนักศึกษาหรือบริษัท
ส...

2012-10-29 03:10:46
  sukit_te34@hotmail.com...
2012-10-29 03:09:36
  Webboard comment
  ระบบจองตั๋วหนังภาษาจาวา (Ja...
2017-11-18 15:42:48
  โปรแกรมจองตั๋วหนัง ภาษาจาวา...
2017-11-18 15:40:29
  ผมลอง gotoxy แล้วแต่ก็ยังเอ...
2017-08-28 11:45:52
  ลองสร้างตัวแปลอีกตัวไว้ใน u...
2017-08-27 20:09:01
  #define GLUT_DISABLE_ATEXIT...
2017-08-27 12:53:17
  ผมมีคลิปสอนให้แล้ว ดูให้เข้...
2017-08-27 10:50:02
  รับ สอน matlab เขียน matlab...
2017-06-03 16:27:23
  เฉพาะทางขนาดนี้ คงต้องดูหาข...
2017-05-25 16:18:08
  โห เครื่องรุ่นไหนครับ os รุ...
2017-05-25 16:12:47
  ถ้าเขียน php ก็ใช้ curl ส่...
2017-04-20 01:04:20
  Homework comment
  คำนวณค่าน้ำโดยรับค่ามิเตอร์จำน...
2017-11-20 23:15:26
  ขอบคุณมากครับ...
2017-08-16 18:27:25
  ทำเอง งง เอง กะลังทำใหม่ค่ะ ^^...
2017-04-18 18:40:46
  ทำเอง งง เอง กะลังทำใหม่ค่ะ ^^...
2017-04-18 18:37:54
  ประเด็นแรก flowchart มันไม่มีภ...
2017-04-18 17:43:33
  อยากได้ flowchart ค่ะ เป็นภาษา...
2017-04-18 16:25:29
  kungking คำถามคืออะไรครับ ?...
2017-03-18 23:28:36
  จงเขียนโปรแกรมแสดงผลรวมของตัวเ...
2017-03-06 10:56:25
  ก็โค้ดทำงานคล้ายๆแบบนี้หละ แต่...
2016-09-06 01:00:12
  ผมอยากทราบว่าโค้ดนับถอยหลังเป็...
2016-09-05 09:31:27
  Article comment
  มีcode ของ VB ไหมค่ะ ถ้ามีรบกว...
2017-09-28 16:50:02
  น่าจะได้ครับ ไม่เคยลอง
กล่...

2017-07-11 09:59:35
  สามารถใช้ต่อกับ anycast ได้ไหม...
2017-07-05 10:12:35
  ครับ คุณ "ติด" แล้วลองนึกต่อว่...
2016-06-18 15:21:09
  vs2008 c# ครับ ขอบคุณครับ...
2016-06-17 14:39:30
  ผมใช้ vs c# ทำตามทุขั้นตอนแต่ต...
2016-06-17 14:37:44
  ต้องวิเคราะห์ครับ "ว่าจริงๆ ส่...
2016-03-12 23:36:05
  ผมส่งข้อความในวง LAN ได้เฉพาะค...
2016-03-12 18:25:42
  โปรแกรม Terminal บน Mac ก็เป็น...
2016-02-16 11:02:01
  โปรแกรม Terminal คืออะไรหรอคะ...
2016-02-16 05:58:21
  9Mcode comment
  อยากได้...
2014-02-21 08:52:19

Link Exchange

อัตราค่าโฆษณา
Statistics of Sourcecode in Thailand
 
 Webboard

- - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -

กระทู้ #3092 [Delphi]

หัดเขียน Delphi เรื่อง Memo ครับ

1.ต้องการเช็คค่าว่างใน memo ห้ามว่าง
2. add data โดยที่ไม่จำเป็นต้องเริ่มที่ lines[0] เอาทุก line
3 ตัวอย่างครับ
Parameters.ParamByNam('test').Value :=Memo1.Lines[0] ;

ต้องการนำค่าใน lines ทุก lines เก็บลง database (type=text)ได้ไหมครับ

ขอบคุณล่วงหน้านะครับ
จากคุณ : it_opt / jakarin_24@hotmail.com [2011-07-01 10:46:42]  

101.108.23.188 ความคิดเห็น #28377 (จาก IP: 101.108.23.188)
ก็แค่วนลูป ในลูปก็ต่อ database แล้วสั่ง SQL command "insert into......."
จากคุณ : maddog [2011-07-02 11:42:03]

202.149.127.183 ความคิดเห็น #28401 (จาก IP: 202.149.127.183)
ขอ โค๊ดตัวอย่างด้วยได้ไหมครับ
ตอนทำแล้วยังติดขัดอยู่ครับ
จากคุณ : it_opt / jakarin_24@hotmail.com [2011-07-04 07:57:58]

125.24.182.42 ความคิดเห็น #28402 (จาก IP: 125.24.182.42)
ผมไม่ได้รับ delphi มานานจึงไม่มโค้ดตัวอย่างดังกล่าวแล้ว ติดขัดตรงไหน error ตรงไหน สอบถามมาได้ แนะนำได้จะแนะนำ
จากคุณ : maddog [2011-07-04 08:10:14]

202.149.127.183 ความคิดเห็น #28403 (จาก IP: 202.149.127.183)
รบกวนขอ E-mail ถ้าได้จะเป็นพระคุณอย่างยิ่งครับ
จากคุณ : it_opt / jakarin_24@hotmail.com [2011-07-04 16:51:58]

125.24.182.42 ความคิดเห็น #28404 (จาก IP: 125.24.182.42)
ต้องขออภัย ผมไม่ได้รับปรึกาษาผ่าน email หรือ msn ผมจะใช้เฉพาะคุยงานกับลูกค้าผมเท่านั้น

ส่วนในเว็บบอร์ดนี้ผมเข้าบ่อย มีอะไรไม่ยากมากก็จะแนะนำได้ก็จะช่วย
จากคุณ : maddog [2011-07-04 22:08:42]

202.149.127.183 ความคิดเห็น #28406 (จาก IP: 202.149.127.183)
แล้วแบบนี้ ผมจะทำ webserv
จากคุณ : it_opt / jakarin_24@hotmail.com [2011-07-05 09:28:58]

210.213.58.63 ความคิดเห็น #28407 (จาก IP: 210.213.58.63)
?
จากคุณ : maddog [2011-07-05 11:08:41]

202.149.127.183 ความคิดเห็น #28408 (จาก IP: 202.149.127.183)
ต้องการเก็บdata ใน Memoครับ และต้องเช็คก่อนว่า มีค่าว่างไหม ถ้าว่างต้องเติมก่อน แล้วถึงจะSAVE ได้ครับ
//////////////////////////////////////////
procedure TForm1.Button1Click(Sender: TObject);

begin


begin
with ADOCommand1 do

begin
// Parameters.ParamByName('log_id').Value := label0.Caption; //äÁéµéͧãÊèà¾ÃÒÐÁѹÍÍâµé¹ÑÁàºÍÃì
Parameters.ParamByName('log_user').Value := lb2.Caption;
Parameters.ParamByName('log_desc').Value := Memo1.text;
Parameters.ParamByName('log_qa'). Value := cb1.Checked;
Parameters.ParamByName('log_pdm'). Value := cb2.Checked;
Parameters.ParamByName('log_pdi'). Value := cb3.Checked;
Parameters.ParamByName('log_pc'). Value := cb4.Checked;
Parameters.ParamByName('log_pdg'). Value := cb5.Checked;

begin
if cb1.Checked=true then
else
if cb2.Checked=true then
else
if cb3.Checked=true then
else
if cb4.Checked=true then
else
if cb5.Checked=true then
else
Showmessage('¡ÃسÒàÅ×Í¡á¼¹¡´éǤÃѺ') ;
end;
begin

if Memo1.text =('') then

MessageDlg('¡ÃÍ¡ÃÒÂÅÐàÍÕ´¡ÒÃá¡é䢴éǹФÃѺ',mtCustom,[mbOK],0) ;

end;


begin

if MessageDlg('¤Ø³á¹èã¨ÇèÒ¢éÍÁÙÅ·Õè¨ÐºÑ¹·Ö¡¹Õé¶Ù¡µéͧ',mtConfirmation,[mbOK, mbCancel],0)<> mrOK then
begin
exit;
end
else
begin
Execute
end;

end;

end;

end;

end;
จากคุณ : it_opt / jakarin_24@hotmail.com [2011-07-05 11:17:16]

210.213.58.63 ความคิดเห็น #28409 (จาก IP: 210.213.58.63)
begin กับ end ดูแปลกมากๆ ไม่ error เหอ
จากคุณ : maddog [2011-07-05 11:52:00]

202.149.127.183 ความคิดเห็น #28410 (จาก IP: 202.149.127.183)
error ตรง data ครับ เพราะเก็บ ใน Memo ไม่ได้ ถ้าพิมไทย Error ครับ อันนี้เป็นปัญหาคนละส่วนครับ แต่ add memo ไม่ได้ครับ อันนี้ที่อยากให้ช่วยแนะนำครับ
จากคุณ : it_opt / jakarin_24@hotmail.com [2011-07-05 12:00:49]

203.146.242.40 ความคิดเห็น #28411 (จาก IP: 203.146.242.40)
error ว่าอะไรหละครับ
จากคุณ : maddog [2011-07-05 13:13:26]

202.149.127.183 ความคิดเห็น #28412 (จาก IP: 202.149.127.183)
Project Project1.exe raised exception class EOleException with message '[MySQL][ODBC 5.1 Driver][mysqld-5.1.43-community]Incorrect string value : '\xCB\xA1\xB4\xB4' for column 'log_desc' at row 1'.Process stopped.Use Step or Run to continue
จากคุณ : it_opt / jakarin_24@hotmail.com [2011-07-05 13:23:35]

210.213.58.63 ความคิดเห็น #28413 (จาก IP: 210.213.58.63)
สันนิฐาน อาการประมาณว่า ข้อความภาษาไทย ถูกแปลงไปเป็น encode แบบอื่น ('\xCB\xA1\xB4\xB4') ซึ่ง Field ปลายทางกำหนด encoding ไม่ตรงกัน มันก็เลยเอาค่าที่ส่งไป เก็บลงใน database record ไม่ได้

วิธีแก้
-แก้ encoding ของ field นั้น(ลองหาดูว่าต้องเป็น tis-620 หรือ utf-8)
-ในโปรเจค ลองหาวิธีแก้ไขค่า font, หรือ encoding ของโปรแกรม (หาจากเมนู option )
-ลองตรวจสอบว่า delphi ที่ใช้มี patch ใหม่ล่าสุดหรือยัง และลองหามาลง

เบื้องต้นวิเคราะห์ไว้ได้เท่านี้ ลองทำดู
จากคุณ : maddog [2011-07-05 13:45:24]

202.149.127.183 ความคิดเห็น #28414 (จาก IP: 202.149.127.183)
ขอบคุณครับ แต่ที่ต้องการทราบเพิ่มเติมครับ คือเรื่อง โค๊ด การadd data ของ Memoครับ หรือศึกษาเพิ่มเติมจากที่ไหนเพราะลองหาใน Thai Dev ก็ไม่ค่อยมีครับ อยากได้โค๊ดครับ
จากคุณ : it_opt / jakarin_24@hotmail.com [2011-07-05 13:53:33]

210.213.58.63 ความคิดเห็น #28415 (จาก IP: 210.213.58.63)
เว็บประจำผม ช่วงเล่น delphi http://www.delphi3000.com/
จากคุณ : maddog [2011-07-05 14:17:24]

202.149.127.183 ความคิดเห็น #28416 (จาก IP: 202.149.127.183)
ขอบคุณครับ
จากคุณ : it_opt / jakarin_24@hotmail.com [2011-07-05 14:33:32]
ตอบกระทู้
  • ห้ามการโฆษณา หากต้องการติดต่อหาลูกค้า ติดต่อโฆษณาโดยตรงได้ที่ webmaster@sourcecode.in.th
  • ห้ามใช้คำหยาบและคำพูดที่ไม่เหมาะสม
  • ขอสงวนสิทธิหากตรวจพบ ข้อความที่ไม่เหมาะสม ข้อความนั้นจะถูกลบทันที
ชื่อ
อีเมล์
รายละเอียด

- - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -

 
 
สายต่อจอ สำหรับเครื่อง macbook pro 2016 (usb-c to HDMI)
สายต่อจอ สำหรับเครื่อง macbook pro 2016 (usb-c to HDMI) ความละเอียดระดับ 4K
หัวแปลง Mini DisplayPort to HDMI Adapter หัวแปลง Mini DisplayPort to HDMI Adapter สำหรับเครื่อง macbook air/pro, mac mini
หัวแปลง Mini DisplayPort to HDMI Adapter สำหรับเครื่อง macbook air/pro, mac mini
สายต่อหูฟัง และชาร์จไฟ สำหรับ iPhone 7 และ 7 Plus
สายต่อหูฟัง และชาร์จไฟ สำหรับ iPhone 7 และ 7 Plus
หัวแปลงจาก USB-C Type ไปเป็น USB 3.1 สำหรับ MacBook
หัวแปลงจาก USB-C Type ไปเป็น USB 3.1 สำหรับ MacBook
ไขควงสำหรับเครื่อง Macbook Air/Pro
ไขควง สำหรับแกะเครื่อง Macbook Air/Pro (300บาท)
HDMI เข้า 3 ออก  1 มีรีโมท
HDMI เข้า 3 ออก 1 มีรีโมท (350บาท)
คลิปสอนเขียนโปรแกรม
เรียนเขียนโปรแกรมดอทเน็ต
เรียนเขียนโปรแกรมแอนดรอยด์
เรียนเขียนโปรแกรมเบล็คเบอร์รี่
เรียนเขียนโปรแกรมซี ซีพลัสพลัส
เรียนเขียนโปรแกรมจาวา
เรียนการใช้งานลินุกส์
เรียนการเขียนโปรแกรมวินโดว์โฟน
เรียนการเขียนโปรแกรมพีเฮชพี มายเอสคิวเอล
9M Blog บอกเล่าเรื่องราว การเขียนโปรแกรมของ นายเอ็ม
บริการ ถ่ายภาพรับปริญญา
OrmSin.com: ขายหนังสืองานฝีมือไทย-ญี่ปุ่น-จีน (country crafts)
อัตราค่าโฆษณา
 
Tutorial
eVB Tutorial
ASP.NET Webmatrix Tutorial
J2ME Tutorial
C++  Tutorial
Java  Tutorial
PHP Tutorial
ASP Tutorial
 
แบบสำรวจ
Freelance รับพัฒนาโปรแกรม

Home - Article - Tutorial - Sourcecode - Dev Handbook - Search - WebBoard - Links - About Us

สงวนลิขสิทธิ์ ห้ามคัดลอก ทำซ้ำ แก้ไข ดัดแปลง ไม่ว่าในรูปแบบใด โดยไม่ได้รับอนุญาตเป็นลายลักษณ์อักษร
เลขทะเบียนพาณิชย์อิเล็กทรอนิกส์จากกระทรวงพาณิชย์: 7100503002000
Copyright 2001 SourceCode.in.th