notpad

[**MR**]

سلام بچه ها
من برای find برنامه notpadبا استفاده ازشی memoاز کد زیر استفاده کردم ولی دوتا مشکل دارد:

1-در موقع اجرا وقتیfinddialog را باز می کنم تا کاراکتری را پیدا کند خط اول را اصلا نظر نمی گیرد(یعنی اگر کاراکتر مورد نظر در خط اول باشد اصلا پیدایش نمی کند ولی از خط دوم به بعد را پیدا میکند).


2-در موقع اجرا وقتfinddialog را باز میکنم و کارکتر را می دهم تا پیدا کند تا دکمه find را می زنم تا وقتی پنجره باز است آن را به حالت انتخاب در نمی آورد و باید پنجره را به صورت دستی ببندم تا ببینم چی انتخاب شده البته من یک گزینه جدا برای find nextگذاشتم
البته این مشکل من با بستن خود به خود finddialogبعد از پیدا کردن اولین کاراکتر حل می شود ولی نمی دانم ان را در کجای برنامه بنویسم.
خواهش میکنم راهنماییم کنید.
البته اگر کد دیگری برای find , replace بهم بدهید ممنون میشوم.

procedure TForm1.FindDialog1Find(Sender: TObject); 

var 

  I, J, PosReturn, SkipChars: Integer; 

  CursorPos : TPoint; 

begin 

  CursorPos := Memo1.CaretPos; 

  if frDown in FindDialog1.Options then 

  begin 

    for I := CursorPos.Y + 1 to Memo1.Lines.Count do 

    begin 

      PosReturn := Pos(FindDialog1.FindText,Memo1.Lines[i]); 

      if (PosReturn <> 0) then 

      begin 

        SkipChars := 0; 

        for J := 0 to I - 1 do 

          SkipChars := SkipChars + Length(Memo1.Lines[J]); 

        SkipChars := SkipChars + (I*2); 

        SkipChars := SkipChars + PosReturn - 1; 



        Memo1.SelStart := SkipChars; 

        Memo1.SelLength := Length(FindDialog1.FindText); 

        Break; 

      end; 

    end; 

  end 

  else 

  begin 

    for I := CursorPos.Y - 1 downto 0 do 

    begin 

      PosReturn := Pos(FindDialog1.FindText,Memo1.Lines[i]); 

      if PosReturn <> 0 then 

      begin 

        SkipChars := 0; 

        for J := 0 to I - 1 do 

          SkipChars := SkipChars + Length(Memo1.Lines[J]); 

        SkipChars := SkipChars + (I*2); 

        SkipChars := SkipChars + PosReturn - 1; 



        Memo1.SelStart := SkipChars; 

        Memo1.SelLength := Length(FindDialog1.FindText); 

        Break; 

      end; 

    end; 

  end; 

end; 



procedure TForm1.FindClick(Sender: TObject); 

begin 

  FindDialog1.Execute; 

end; 



procedure TForm1.FindNextClick(Sender: TObject); 

begin 

  FindDialog1Find(nil); 

end; 



procedure TForm1.ReplaceClick(Sender: TObject); 

begin 

  ReplaceDialog1.Execute; 

end; 



procedure TForm1.ReplaceDialog1Replace(Sender: TObject); 

var 

  CursorPos : TPoint; 

  I, J, SkipChars, PosReturn : integer; 

begin 

  if frReplace in ReplaceDialog1.Options then 

    Memo1.SelText := ReplaceDialog1.ReplaceText 

  else if frReplaceAll in ReplaceDialog1.Options then 

  begin 

    CursorPos := Memo1.CaretPos; 

    for I := CursorPos.Y + 1 to Memo1.Lines.Count do 

    begin 

      PosReturn := Pos(ReplaceDialog1.FindText,Memo1.Lines[i]); 

      if PosReturn <> 0 then 

      begin 

        SkipChars := 0; 

        for J := 0 to I - 1 do 

          SkipChars := SkipChars + Length(Memo1.Lines[J]); 

        SkipChars := SkipChars + (I*2); 

        SkipChars := SkipChars + PosReturn - 1; 



        Memo1.SelStart := SkipChars; 

        Memo1.SelLength := Length(ReplaceDialog1.FindText); 

        Memo1.SelText := ReplaceDialog1.ReplaceText; 

      end; 

    end; 

  end; 

end; 



procedure TForm1.ReplaceDialog1Find(Sender: TObject); 

var 

  I, J, PosReturn, SkipChars: Integer; 

  CursorPos : TPoint; 

begin 

  CursorPos := Memo1.CaretPos; 

  for I := CursorPos.Y + 1 to Memo1.Lines.Count do 

  begin 

    PosReturn := Pos(ReplaceDialog1.FindText,Memo1.Lines[i]); 

    if PosReturn <> 0 then 

    begin 

      SkipChars := 0; 

      for J := 0 to I - 1 do 

        SkipChars := SkipChars + Length(Memo1.Lines[J]); 

      SkipChars := SkipChars + (I*2); 

      SkipChars := SkipChars + PosReturn - 1; 



      Memo1.SelStart := SkipChars; 

      Memo1.SelLength := Length(ReplaceDialog1.FindText); 

      Break; 

    end; 

  end; 

end;

[**MR**]

دوباره سلام
با دقت که برنامه ام را اجرا کردم دیدم یه مشکل دیگه هم داره:
به عنوان مثال وقتی میخواهم کاراکتر h برام پیدا کنه در هر خطی اگه بیشتر از یکی بود فقط اولیش را پیدا میکنه.

[Hsimple11]

برای انجام کارهای ویرایش متن ساده متوانید از Action ها کمک بگیرید. در واقع یک اکشن استاندارد برای Find و یا Replace.
قبلا در مورد کار با Actions بحث شده. جستجو کنید.

موفق باشید...

[Hsimple11]

اگر نیازتان فوری است بدلیل مشکلی که در قسمت جسجوی سایت پیدا شده بفرمایید تا راهنماییتان کنم.

موفق باشید...

[**MR**]

این یک پروژه دانشجویی و نمی توانم غیر از چیزهایی که استاد گفته چیز دیگری استفاده کنم در این برنامه فقط می توانم ازdialog,memoاستفاده کنم.
و مشکلم هم فوریه
من نمیدانم چرا خط اول را درfind نظر نمی گیره و................

[**MR**]

سلام
یعنی انقدر اشکال یابی برنامه ای به ای سادگی(البته برای حرفه ای ها ) سخت باشه که هیچ کس جوابم را نمی ده وقت ندارم خواهش میکنم زود جوابم را بدهید

[**MR**]

اینجا همیشه به این صورت که کاربر های جدید که هنوز ابتدای راه هستند را تحویل نمی گیرند من 24 ساعت این تایپک را گذاشتم ولی به غیر از HSIMPLEهیچ کس راهنمایم نکرد حتی مدیران.
موتور جستجو هم که غیر فعال مثل اینکه من این دفعه بدشانسی اوردم
اگه راهنماییم کنید کمک بزرگی بهم کردید.

[Hsimple11]

سایت چند روزی در حال Update شدن بود.

private

    { Private declarations }

    FSelPos: integer;

  public

    { Public declarations }

  end;



var

  Form1 : TForm1;



implementation



{$R *.dfm}



procedure TForm1.FindDialog1Find(Sender : TObject);

var

  S : string;

  startpos : integer;

begin

  with TFindDialog(Sender) do

  begin

    if FSelPos = 0 then

      Options := Options - [frFindNext];



    if frfindNext in Options then

    begin

      StartPos := FSelPos + Length(Findtext);

      S := Copy(Memo1.Lines.Text, StartPos, MaxInt);

    end

    else

    begin

      S := Memo1.Lines.Text;

      StartPos := 1;

    end;

    FSelPos := Pos(FindText, S);

    if FSelPos > 0 then

    begin

      FSelPos := FSelPos + StartPos - 1;

      Memo1.SelStart := FSelPos - 1;

      Memo1.SelLength := Length(FindText);

      Memo1.SetFocus;

    end

    else

    begin

      if frfindNext in Options then

        S := Concat('There are no further occurences of "', FindText,

          '" in Memo1.')

      else

        S := Concat('Could not find "', FindText, '" in Memo1.');

      MessageDlg(S, mtError, [mbOK], 0);

    end;

  end;

end;



procedure TForm1.Button1Click(Sender : TObject);

begin

  FSelPos := 0;

  FindDialog1.Execute;

end;

فکر کنم بتوانید آن ذا برای Replace هم تعمیم دهید.
موفق باشید...