ویرایش یک رشته

[mf4arman24]

سلام. من یه رشته دارم که در یه قسمت اون از حروف عربی استفاده شده. مثل يحيي که می خواهم به یحیی تبدیل بشه. یعنی برنامه هرجا حرف "ي" رو دید با "ی" عوضش کنه. ویرایش بشه به یحیی.
من کدش رو می خواستم.

[mf4arman24]

یافتم.

var MyString1=:string;
begin
// اصلاح حرف ی در نام
form1.adOQuery1.Filtered:=false;

form1.adoquery1.Active:=false;
form1.adoquery1.SQL.Clear;
form1.adoquery1.SQL.Add('select * from nezarat where nam like ''%ي%'' ');
form1.adoquery1.Active:=true;

form1.adoquery1.First;
while not(form1.adoquery1.Eof) do begin
MyString1:='';
MyString1:=form1.ADOQuery1.FieldByName('nam').AsSt ring;

MyString1 := StringReplace(MyString1,'ي', 'ی', [rfReplaceAll]);


form1.ADOQuery1.edit;


form1.ADOQuery1.FieldByName('nam').AsString:=MyStr ing1;



form1.ADOQuery1.Post;


form1.adoquery1.Next;
end;
end;