جداسازی نام ونام خانوادگی که با خط تیره جداشده اند

[ali_abbasi22145]

سلام
من ado دلفي 7 به SQL SERVER 2000 وصل مي شوم
من می خواهم جداسازی نام ونام خانوادگی که با خط تیره جداشده اند را انجام دهم.
مثال: full_name"علی- صالحی" بشود first_name "علی" و last_nameنام خانوادگی"صالحی"
full_name "امیرحسین- محمدی تهرانی" بشود first_name "امیرحسین" و last_nameنام خانوادگی"محمدی تهرانی"

[mohsen24000]

کوئری این کار رو انجام بده یا میخوایی با کد دلفی انجام بشه؟

[ali_abbasi22145]

با كد دلفي بهتر است و كوري نباشد.

[mohsen24000]

var s:string;
begin
s:=db.fieldbyname('full_name').asstring;
db.edit;
db.fieldbyname('first_name').asstring:=copy(s,1,po s('-',s)-1);
db.fieldbyname('last_name').asstring:=copy(s,pos('-',s)+1,length(s)-pos('-',s));
db.post;
end;

[ali_abbasi22145]

سلام و تشكر

حال اگر چند فيلد بدون خط تيره باشد مثل علي عباسي بخواهيم براي انها كاري انجام نشود (رد كند) چه دستوري به آن اضافه كنيم

[mohsen24000]

var s:string;
begin
s:=db.fieldbyname('full_name').asstring;
if pos('-',s) then begin
db.edit;
db.fieldbyname('first_name').asstring:=copy(s,1,po s('-',s)-1);
db.fieldbyname('last_name').asstring:=copy(s,pos('-',s)+1,length(s)-pos('-',s));
db.post;
end;
end;