elvileg de igen
(valamiért nem toom futtani:
egy.pas(8,58) Error: Identifier not found "rfReplaceAll"
a hívás meg ilyen:
uses strutils;
var egy,ketto: array [1..2] of string;
begin
egy[1]:='Egy-egy';
egy[2]:='Egy-kettő';
ketto[1]:='Kettő-egy';
ketto[2]:='Kettő-kettő';
WriteLn(StringsReplace('Egy-egy',egy,ketto,[rfReplaceAll]));
end.
azonban oktatási céllal kéne... szóval, azon felül, hogy mit rontok el most, érdekelne az eredeti kérdésre is a válasz..