ใส่ขีด(-) ใน memo โดยอ้างค่าจาก Variabel

[ismailsa]

สวัสดีครับ อ.ทุกท่าน มีวิธีใส่ขีด(-) ใน memo ไหมครับ ผมลองใส่ใน Variable มันจะแสดงค่าแค่ตัวเดียว

procedure Variable2OnGetText(var Text: String);
begin

  Text := '-'+Text;

end;

แต่ถ้าใส่เป็น memo text มันจะไม่ตัดคำ
procedure Variable2OnGetText(var Text: String);
begin

  Text := '-'+Memo2.text;

end;
มีรูปมาให้ดูด้วยครับ

[pop_hosxp]

ใช้ select concat("-", xxxx) as cc from table ครับ

[ismailsa]

ใช้ select concat("-", xxxx) as cc from table ครับ

ใช้ select concat("-", xxxx) as cc from table ครับ

ใส่เข้าไปใน Variable  เลยใช่ไหมคับ
memo1.text:=GetListFromQuery('select risk_name  from check_group where check_group.group in ( "'+DBPipeline['name14']+'","'+DBPipeline['name15']+'","'+DBPipeline['name16']+'","'+DBPipeline['name17']+'","'+DBPipeline['r4']+'","'+DBPipeline['r5']+'","'+DBPipeline['r7']+'","'+DBPipeline['r8']+'" )');
ติด ERROR คับ

[pop_hosxp]

ใส่เข้าไปใน Variable  เลยใช่ไหมคับ
memo1.text:=GetListFromQuery('select risk_name  from check_group where check_group.group in ( "'+DBPipeline['name14']+'","'+DBPipeline['name15']+'","'+DBPipeline['name16']+'","'+DBPipeline['name17']+'","'+DBPipeline['r4']+'","'+DBPipeline['r5']+'","'+DBPipeline['r7']+'","'+DBPipeline['r8']+'" )');
ติด ERROR คับ

ใส่แบบนี้ครับ

memo1.lines.text:=GetListFromQuery('select concat("- ", risk_name) as risk_name  from check_group where check_group.group in ( "'+DBPipeline['name14']+'","'+DBPipeline['name15']+'","'+DBPipeline['name16']+'","'+DBPipeline['name17']+'","'+DBPipeline['r4']+'","'+DBPipeline['r5']+'","'+DBPipeline['r7']+'","'+DBPipeline['r8']+'" ) ');

[ismailsa]

ใส่เข้าไปใน Variable  เลยใช่ไหมคับ
memo1.text:=GetListFromQuery('select risk_name  from check_group where check_group.group in ( "'+DBPipeline['name14']+'","'+DBPipeline['name15']+'","'+DBPipeline['name16']+'","'+DBPipeline['name17']+'","'+DBPipeline['r4']+'","'+DBPipeline['r5']+'","'+DBPipeline['r7']+'","'+DBPipeline['r8']+'" )');
ติด ERROR คับ

ใส่แบบนี้ครับ

memo1.lines.text:=GetListFromQuery('select concat("- ", risk_name) as risk_name  from check_group where check_group.group in ( "'+DBPipeline['name14']+'","'+DBPipeline['name15']+'","'+DBPipeline['name16']+'","'+DBPipeline['name17']+'","'+DBPipeline['r4']+'","'+DBPipeline['r5']+'","'+DBPipeline['r7']+'","'+DBPipeline['r8']+'" ) ');

ได้แล้วครับ ขอบคุณท่าน pop_hosxp มากครับ