1:
2:
3:

RichEditSource.Text := AnsiReplaceStr(RichEditSource.Text,
                                      RichEditSearch.Text,
                                      RichEditReplace.Text);					

1:
2:
3:
4:

cont := RichEditSource.Text;
RichEditSource.Text := AnsiReplaceStr(cont,
                                      RichEditSearch.Text,
                                      RichEditReplace.Text);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

Function       Name CPU   Presler Northwood Yonah Dothan AMD64 AMD64 X2 Total
StringReplace_JOH_IA32_4      1034  1010  1000  1000  1000  1000  6044
StringReplace_JOH_IA32_3      1000  1000  1104  1105  1049  1066  6324
StringReplace_JOH_PAS_4       1210  1202  1020  1029  1143  1140  6744
StringReplace_JOH_PAS_3       1316  1278  1105  1105  1236  1256  7296
StringReplace_EG_MMX_         1376  1462  1053  1070  1165  1187  7313
StringReplace_SHA_IA32_1      2183  2236  1662  1709  1548  1618  10956
StringReplace_EWC_IA32_2      2202  2182  1726  1733  1668  1682  11193
StringReplace_DKC_SSE2_19     2243  2386  1759  1770  1859  1903  11920
StringReplace_DKC_SSE2_20     2255  2440  1759  1775  1864  1905  11998
StringReplace_DKC_SSE_10      2366  2420  1778  1792  1885  1903  12144
StringReplace_DKC_SSE_9       2364  2400  1789  1790  1921  1957  12221
StringReplace_DKC_IA32_15     2400  2364  1851  1861  1918  1946  12340
StringReplace_DKC_IA32_16     2410  2378  1852  1865  1923  1955  12383
StringReplace_DKC_MMX_9       2417  2414  1846  1851  1927  1971  12426
StringReplace_DKC_MMX_10      2427  2494  1836  1857  1934  1976  12524
StringReplace_DKC_IA32_14     2460  2420  1869  1882  1962  1997  12590
StringReplace_DKC_MMX_11      2487  2688  1824  1827  1915  1948  12689
StringReplace_DKC_Pas_5       2511  2536  2055  2059  1900  1924  12985
StringReplace_DKC_Pas_4       3660  4112  2989  3011  2523  2784  19079
StringReplace_HV_IA32_1       8224  8096  5904  6128  5533  5734  39619
StringReplace_REF_PAS_1       8188  8598  5892  6044  6076  6580  41378
StringReplace_RTL_PAS_1      17376  16298  15058  15722  11217  11501  87172					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

char* strReplace(char* sCont, char* sSearch, char* sRepl)
    {
    int nCont = strlen(sCont);
    int nSearch = strlen(sSearch);
    int nRepl = strlen(sRepl);
    ;
    int nBuff = (nCont / nSearch) * nRepl 
              + (nCont % nSearch);
    nBuff = (nBuff < nCont) ? nCont : nBuff;
    char* sBuff = malloc(sizeof(char) * nBuff);
    *sBuff = '\0';
    ;
    int nToCopy = 0;
    while(*sCont)
        {
        if(*sCont == *sSearch)
            {
            char* pCont = sCont;
            char* pSearch = sSearch;
            while((*++pCont == *++pSearch) &&
                  (*pCont) && (*pSearch));
            ;
            if(!*pSearch)
                {
                strncat(sBuff, (sCont - nToCopy), nToCopy);
                nToCopy = 0;
                strcat(sBuff, sRepl);
                sCont += nSearch;
                continue;
                }
            }
        sCont++;
        nToCopy++;
        }
    strncat(sBuff, (sCont - nToCopy), nToCopy);
    return sBuff;
    }					

1:

Function DeinReplaceStr(sCont: PChar; sSearch: PChar; sReplace: PChar): PChar; external 'Deine.dll' name 'strReplace';					

1:

hù					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

implementation

{$R *.dfm}

Function MyReplace(sSource: PChar; sSearch: PChar; sReplace: PChar): PChar; external 'replaceDLL.dll' name 'strReplace';

procedure TForm1.ButtonReplaceClick(Sender: TObject);
begin
pSource := PChar(RichEditSource.Text);
pSearch := PChar(RichEditSearch.Text);
pReplace := PChar(RichEditReplace.Text);
pResult := MyReplace(pSource,
                     pSearch,
                     pReplace);
RichEditSource.Text := AnsiString(pResult);
end;					

1:

Function MyReplace(sSource: PChar; sSearch: PChar; sReplace: PChar; sResult: PChar; var nResult: Integer): Boolean; stdcall; external 'replaceDLL.dll' name 'strReplace';					

1:

__stdcall bool strReplace(char* sCont, char* sSearch, char* sRepl, char* sResult, int32* nResult)