Помогите переписать c Delphi на с++

[Stilet]

А можно узнать что за задание у тебя?

[JUDAS]

Чё то я тебя не понимаю. Ты просишь перевести код с Паскаля в котором FindText, а потом заявляешь что FindText тебе не нужен. так ты определись, что тебе вообще нужно.

ТВОЙ КОД АВТОР

procedure TForm1.rdReplaceDialogFind(Sender: TObject);
var
I, J, PosReturn, SkipChars: integer; S,SerchStr:string;
begin
for I := FI to moText.Lines.Count do
begin
if FPosReturn=0 then S:=moText.Lines[I] else S:=copy(moText.Lines[I],FPosReturn+1,Length(moText.Lines[I])-FPosReturn+1);
if not(frMatchCase in rdReplaceDialog.Options) then
begin
S:=AnsiUpperCase(S);
SerchStr:=AnsiUpperCase(rdReplaceDi alog.FindText);
end else SerchStr:=rdReplaceDialog.FindText;
if frWholeWord in rdReplaceDialog.Options then
PosReturn := Pos(' '+SerchStr+' ',S)
else
PosReturn := Pos(SerchStr,S);
if PosReturn <> 0 then {found!}
begin
SkipChars := 0;
for J := 0 to I - 1 do
SkipChars := SkipChars + Length(moText.Lines[J]);
SkipChars := SkipChars + (I*2);
SkipChars := SkipChars + PosReturn - 1 + FPosReturn;
FPosReturn:=FPosReturn+PosReturn;
moText.SetFocus;
if frWholeWord in rdReplaceDialog.Options then
moText.SelStart := SkipChars+1
else
moText.SelStart := SkipChars;
moText.SelLength := Length(rdReplaceDialog.FindText);
FI:=I;
Break;
end else FPosReturn:=0;
end;
end;

procedure TForm1.rdReplaceDialogReplace(Sende r: TObject);
var
SelPos: integer;
begin
if not(frReplaceAll in rdReplaceDialog.Options) then
begin
SelPos := Pos(rdReplaceDialog.FindText, moText.Lines.Text);
if SelPos > 0 then
begin
moText.SelStart := SelPos - 1;
moText.SelLength := Length(rdReplaceDialog.FindText);
moText.SelText := rdReplaceDialog.ReplaceText;
end
else MessageDlg('Текст "'+rdReplaceDialog.FindText;+'" не найден', mtError, [mbOk], 0);
end else
moText.Lines.Text:=StringReplace(mo Text.Lines.Text,rdReplaceDialog.FindText,rdReplaceDialog.ReplaceText,[rfReplaceAll]);
end;