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

[vasyabah2015]

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;
type
TForm1 = class(TForm)
rdReplaceDialog: TReplaceDialog;
moText: TMemo;
procedure FormCreate(Sender: TObject);
procedure rdReplaceDialogFind(Sender: TObject);
procedure rdReplaceDialogReplace(Sender: TObject);
private
{ Private declarations }
FI, FPosReturn:integer;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
rdReplaceDialog.Execute;
end;
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(rdReplaceDialog.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(Sender: 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(moText.Lines.Text,rdReplaceDialog.FindText,rdReplaceDialog.ReplaceText,[rfReplaceAll]);
end;
end.

[min@y™]

на с++

c++ builder?

[vasyabah2015]

Сообщение от min@y™

c++ builder?

перепишите на с++ builder пожалуйста

[min@y™]

перепишите на с++ builder пожалуйста

билдер этот код и так сожрёт, без переводу. Компоненты билдера на паскале написаны.

[vasyabah2015]

Сообщение от min@y™

билдер этот код и так сожрёт, без переводу. Компоненты билдера на паскале написаны.

Мне нужен перевод.Это же обработка событий ReplaceDialog.Подключить так не получилось

[min@y™]

Не удалось? Плохо подключаль.

[vasyabah2015]

Сообщение от min@y™

Не удалось? Плохо подключаль.

Мне нужно реализовать поиск и замену в RichEdit через ReplaceDialog без помощи функции FindText.
нашёл на дельфи только

[min@y™]

Напиши сам на С++. Нефига копипастить интернеты!

[JUDAS]

Автор, плохо искал. Я вон с первого разу нашёл то что тебе надо на Зябли++

void __fastcall TForm1::BitBtn8Click(TObject *Sender)
{
  FindDialog1->FindText = RichEdit2->SelText;
  FindDialog1->Execute();
}
//---------------------------------------------------------------------------
 void __fastcall TForm1::FindDialog1Find(TObject *Sender)
{
  int FoundAt, StartPos, ToEnd;
  TSearchTypes Option;
  StartPos=RichEdit2->SelStart;
  if (RichEdit2->SelLength) StartPos+=RichEdit2->SelLength;
  ToEnd = RichEdit2->Text.Length()-StartPos;
  if (FindDialog1->Options.Contains(frWholeWord)) {
    Option << stWholeWord;
  }
  else {
   Option >> stWholeWord;
  }
  if (FindDialog1->Options.Contains(frMatchCase)) {
    Option << stMatchCase;
  }
  else {
    Option >> stMatchCase;
  }
  FoundAt = RichEdit2->FindText(FindDialog1->FindText, StartPos, ToEnd, Option);
  if (FoundAt != -1) {
    RichEdit2->SetFocus();
    RichEdit2->SelStart=FoundAt;
    RichEdit2->SelLength=FindDialog1->FindText.Length();
  }
  else
    ShowMessage("Oaeno '"+ FindDialog1->FindText + "' ia iaeaai" ) ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ReplaceDialog1Find(TObject *Sender)
{
  int FoundAt, StartPos, ToEnd;
  TSearchTypes Option;
  StartPos=RichEdit2->SelStart;
  if (RichEdit2->SelLength) 
    StartPos+=RichEdit2->SelLength;
  ToEnd = RichEdit2->Text.Length()-StartPos  ;
  if (ReplaceDialog1->Options.Contains(frWholeWord)) {
    Option << stWholeWord;
  }
  else {
    Option >> stWholeWord;
  }
  if(ReplaceDialog1->Options.Contains(frMatchCase)) {
    Option << stMatchCase;
  }
  else {
    Option >> stMatchCase;
  }
  FoundAt = RichEdit2->FindText(ReplaceDialog1->FindText, StartPos, ToEnd, Option);
  if (FoundAt != -1) {
    RichEdit2->SetFocus();
    RichEdit2->SelStart=FoundAt;
    RichEdit2->SelLength=ReplaceDialog1->FindText.Length();
  }
  else {
    //ShowMessage("Oaeno '"+ ReplaceDialog1->FindText + "' ia iaeaai" ) ;
    return;
  }
  if ( ReplaceDialog1->Options.Contains(frReplaceAll)) {
    ReplaceDialog1Replace(Sender);
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn9Click(TObject *Sender)
{
  ReplaceDialog1->FindText = RichEdit2->SelText;
  ReplaceDialog1->Execute();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ReplaceDialog1Replace(TObject *Sender)
{
  if(RichEdit2->SelText != "") {
    RichEdit2->SelText=ReplaceDialog1->ReplaceText;
  }
  else if (ReplaceDialog1->Options.Contains(frReplace)) {
    //ShowMessage("'" +ReplaceDialog1->FindText+"'");
   return;
 }
 if (ReplaceDialog1->Options.Contains(frReplaceAll)) {
   ReplaceDialog1Find(Sender);
 }
}

Вот ссылка http://www.cyberforum.ru/cpp-builder/thread552345.html

[vasyabah2015]

Сообщение от JUDAS

Автор, плохо искал. Я вон с первого разу нашёл то что тебе надо на Зябли++

void __fastcall TForm1::BitBtn8Click(TObject *Sender)
{
  FindDialog1->FindText = RichEdit2->SelText;
  FindDialog1->Execute();
}
//---------------------------------------------------------------------------
 void __fastcall TForm1::FindDialog1Find(TObject *Sender)
{
  int FoundAt, StartPos, ToEnd;
  TSearchTypes Option;
  StartPos=RichEdit2->SelStart;
  if (RichEdit2->SelLength) StartPos+=RichEdit2->SelLength;
  ToEnd = RichEdit2->Text.Length()-StartPos;
  if (FindDialog1->Options.Contains(frWholeWord)) {
    Option << stWholeWord;
  }
  else {
   Option >> stWholeWord;
  }
  if (FindDialog1->Options.Contains(frMatchCase)) {
    Option << stMatchCase;
  }
  else {
    Option >> stMatchCase;
  }
  FoundAt = RichEdit2->FindText(FindDialog1->FindText, StartPos, ToEnd, Option);
  if (FoundAt != -1) {
    RichEdit2->SetFocus();
    RichEdit2->SelStart=FoundAt;
    RichEdit2->SelLength=FindDialog1->FindText.Length();
  }
  else
    ShowMessage("Oaeno '"+ FindDialog1->FindText + "' ia iaeaai" ) ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ReplaceDialog1Find(TObject *Sender)
{
  int FoundAt, StartPos, ToEnd;
  TSearchTypes Option;
  StartPos=RichEdit2->SelStart;
  if (RichEdit2->SelLength) 
    StartPos+=RichEdit2->SelLength;
  ToEnd = RichEdit2->Text.Length()-StartPos  ;
  if (ReplaceDialog1->Options.Contains(frWholeWord)) {
    Option << stWholeWord;
  }
  else {
    Option >> stWholeWord;
  }
  if(ReplaceDialog1->Options.Contains(frMatchCase)) {
    Option << stMatchCase;
  }
  else {
    Option >> stMatchCase;
  }
  FoundAt = RichEdit2->FindText(ReplaceDialog1->FindText, StartPos, ToEnd, Option);
  if (FoundAt != -1) {
    RichEdit2->SetFocus();
    RichEdit2->SelStart=FoundAt;
    RichEdit2->SelLength=ReplaceDialog1->FindText.Length();
  }
  else {
    //ShowMessage("Oaeno '"+ ReplaceDialog1->FindText + "' ia iaeaai" ) ;
    return;
  }
  if ( ReplaceDialog1->Options.Contains(frReplaceAll)) {
    ReplaceDialog1Replace(Sender);
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn9Click(TObject *Sender)
{
  ReplaceDialog1->FindText = RichEdit2->SelText;
  ReplaceDialog1->Execute();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ReplaceDialog1Replace(TObject *Sender)
{
  if(RichEdit2->SelText != "") {
    RichEdit2->SelText=ReplaceDialog1->ReplaceText;
  }
  else if (ReplaceDialog1->Options.Contains(frReplace)) {
    //ShowMessage("'" +ReplaceDialog1->FindText+"'");
   return;
 }
 if (ReplaceDialog1->Options.Contains(frReplaceAll)) {
   ReplaceDialog1Find(Sender);
 }
}

Вот ссылка http://www.cyberforum.ru/cpp-builder/thread552345.html

этот способ я знаю,а мне нужно без RichEdit->FindText RXLIB её плохо поддерживает