استبدال نص داخل مستند نصي

[محمودد]

السلام عليكم ورحمة الله وبركاتة
لدي مستند نصي يوجد به  اسم ahmad
كيف بمكاني استبداله بي اسم mhmod

[لؤي]

السلام عليكم

الوظيفة stringreplace

كود :

var   before, after : string; begin   // Try to replace all occurrences of a or A to THE   before := 'This is a way to live A big life';   after  := stringreplace(before, ' a ', ' THE ',                           [rfReplaceAll, rfIgnoreCase]);   ShowMessage('Before = '+before);   ShowMessage('After  = '+after); end;

النتيجة

كود :

   Before = This is a way to live A big life    After  = This is THE way to live THE big life

[محمودد]

شكرا لك حاولت التعديل على ملف نصي ولم يفلح الامر الاسم موجود بالسطر التاسع

[Agmcz]

هكذا

PHP كود :

procedure Replace(const FilePath, OldName, NewName: string);
var
  SL: TStringList;
begin
  SL := TStringList.Create;
  try
    SL.LoadFromFile(FilePath);
    SL.Text := StringReplace(SL.Text, OldName, NewName, [rfReplaceAll, rfIgnoreCase]);
    SL.SaveToFile(FilePath);
  finally
    SL.Free;
  end;
{
Usage:

begin
  Replace('File.txt', 'ahmad', 'mhmod');
end;
}
end;