Na toto sluzi funkcia StringReplace z unitu SysUtils.
Zapis funkcie:
function StringReplace(const S: string; const OldPattern: string; const NewPattern: string; Flags: TReplaceFlags): string;
S - text kde chceme nahradzat
OldPattern - Co chceme nahradzat
NewPattern - Cim chceme nahradzat
Flags - nastavenia nahradzovania. Su to
rfReplaceAll - nahrad vsetky vyskyty najdeneho textu
rfIgnoreCase - neber do uvahy male a velke pismena
Flags sa mozu pouzivat v kombinacii.
Pouzitie:
procedure TForm1.BtChangeClick(Sender: TObject);
begin
EdOutText.Text := StringReplace('Nikto nema rad knihy, ale ja ano. '
begin
EdOutText.Text := StringReplace('Nikto nema rad knihy, ale ja ano. '
+'Knihy su moj zivot.','knihy','auta',[rfReplaceAll]);
end;
end;
Do EdOutText.Text sa ulozi "Nikto nema rad auta, ale ja ano. Knihy su moj zivot."
procedure TForm1.BtChangeClick(Sender: TObject);
begin
EdOutText.Text := StringReplace('Nikto nema rad knihy, ale ja ano. '
+'Knihy su moj zivot.','knihy','auta',[rfReplaceAll,rfIgnoreCase]);
end;
Do EdOutText.Text sa ulozi "Nikto nema rad auta, ale ja ano. auta su moj zivot."
Komentáre