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)                    

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

var
  Form1: TForm1;
  sCont: PChar;
  pCont: ^Char;
  nSize: Integer;

implementation

{$R *.dfm}

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

procedure TForm1.Button1Click(Sender: TObject);
begin
sCont := PChar(RichEdit1.Text);
nSize := StrLen(sCont);
GetMem(pCont, nSize);
RichEdit1.Text := MyReplace(pCont,
                            sCont,
                            '1',
                            '2');
end;                    

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:

procedure TForm1.ButtonReplaceClick(Sender: TObject);

var
  pSource: PChar;
  pSearch: PChar;
  pReplace: PChar;
  pResult: PChar;
  nSource: Integer;
  nSearch: Integer;
  nReplace: Integer;
  nResult: Integer;

begin
  pSource := PChar(RichEditSource.Text);
  pSearch := PChar(RichEditSearch.Text);
  pReplace := PChar(RichEditReplace.Text);
  ;
  nSource := StrLen(pSource);
  nSearch := StrLen(pSearch);
  nReplace := StrLen(pReplace);
  ;
  if(nSearch > 0) then
  begin
    nResult := (nSource div nSearch)* nReplace + nSource mod nSearch;
    if(nResult < nSource) then nResult := nSource;
    GetMem(pResult, nResult + 1);
    MyReplace(pResult, pSource, pSearch, pReplace);
    RichEditSource.Text := AnsiString(pResult);
    FreeMem(pResult);
  end;
end;                    

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:
38:

procedure DelphiStrReplace(sBuff: PChar; sCont: PChar; sSearch: PChar; sRepl: PChar);
var
  nToCopy: Integer;
  pCont: PChar;
  pSearch: PChar;

begin
  if not (sSearch^ = '\0') then
  begin
    sBuff := sCont;
  end
  else
  begin
    //sBuff^ := '\0';//hier gibt es Troubles
    nToCopy := 0;
    while not (sCont^ = '\0') do
    begin
      if(sCont^ = sSearch^) then
      begin
        pCont := sCont;
        pSearch := sSearch;
        while(((++pCont)^ = (++pSearch)^) and (pCont^) and (pSearch^));//hier auch
        ;
        if(pSearch^ = '\0') then             //soweit ist der Compiler noch nicht gekommen
        begin
          strncat(sBuff, (sCont - nToCopy), nToCopy);
          nToCopy := 0;
          strcat(sBuff, sRepl);
          sCont += nSearch;
          continue;
        end;
      end;
      sCont++;
      nToCopy++;
    end;
    strncat(sBuff, (sCont - nToCopy), nToCopy);
  end;
end;                    

1:
2:
3:

p := PChar( 'ABC');
inc(p);
=> p := 'BC';                    

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:
38:
39:
40:
41:
42:
43:
44:
45:

procedure DelphiStrReplace(sBuff: PChar; sCont: PChar; sSearch: PChar; sRepl: PChar);

var
  pCont: PChar;
  pSearch: PChar;
  nToCopy: Integer;
  nSearch: Integer;

begin
  if (sSearch^ = #0) then
  begin
    sBuff := sCont;
  end
  else
  begin
    sBuff^ := #0;
    nToCopy := 0;
    nSearch := StrLen(sSearch);
    while not (sCont^ = #0) do
    begin
      if(sCont^ = sSearch^) then
      begin
        pCont := sCont;
        pSearch := sSearch;
        while( (pCont^ = pSearch^) and (not (pCont^ = #0)) and (not (pSearch^ = #0)) ) do
        begin
          inc(pCont);
          inc(pSearch);
        end;

        if(pSearch^ = #0) then
        begin
          StrLCat(sBuff, (sCont - nToCopy), (StrLen(sBuff) + nToCopy));
          nToCopy := 0;
          StrCat(sBuff, sRepl);
          sCont := sCont + nSearch;
          continue;
        end;
      end;
      inc(sCont);
      inc(nToCopy);
    end;
    StrLCat(sBuff, (sCont - nToCopy), (StrLen(sBuff) + nToCopy));
  end;
end;                    

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

procedure MyStringPaste(nBuff: Integer; sBuff: PChar; sToPaste: PChar; nToPaste: Integer);

var
  nIndex: Integer;
  nCount: Integer;
  nLastPos: Integer;

begin
  nCount := 0;
  nLastPos := nBuff + nToPaste - 1;
  for nIndex := nBuff to nLastPos do
  begin
    sBuff[nIndex] := sToPaste[nCount];
    inc(nCount);
  end;
  sBuff[nIndex ] := #0;

end;