Ricerca del testo in un tmemo

[sekoto]

Fai spostare il cursore prima di leggerne la posizione.
😜

e come?

[Stilgar]

Puoi caricare il progetto nel forum o ci sono cose che non puoi pubblicare?
Così lavoriamo sullo stesso codice

Altrimenti è un continuo mettere pezzi di codice a casaccio
Stilgar

[sekoto]

Al momento solo prove per un progetto da fare...
Il progetto è composto da una forma, un componente TMemo dove c'è già inserito del testo e una parola di prova riportata su più righe. Con un pulsante TButton devo ricercare la suddetta parola e visualizzare su un componente  TLabel (o in una variabile integer) le righe dove sono posizionate la parole di prove per poi essere trattate (esempio eliminate, ecc...)
Spero di essere stato chiaro.
Buona giornata a tutti

[Stilgar]

Codice: [Seleziona]

unit testmemo.mainview;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
  published
    Button1:   TButton;
    edtSearch: TEdit;
    Label1:    TLabel;
    Memo1:     TMemo;
  published
    procedure Button2Click(Sender: TObject);
  public
  end;

var
  Form1: TForm1;

implementation

uses
  strutils, lazutf8;

function FindInMemo(AMemo: TMemo; AString: string; StartPos: integer): integer;
begin
  Result := PosEx(AString, AMemo.Text, StartPos);
  if Result > 0 then
  begin
    AMemo.SelStart  := UTF8Length(PChar(AMemo.Text), Result - 1);
    AMemo.SelLength := Length(AString);
    AMemo.SetFocus;
  end;
end;
//Now, add following code in the event handler OnClick from Button2:
procedure TForm1.Button2Click(Sender: TObject);
const
  SearchStr: string = '';                     // The string to search for
  SearchStart: integer = 0;                   // Last position of the string to search for
begin
  Label1.Caption := '';
  if SearchStr <> edtSearch.Text then
  begin       // Falls sich der zu suchende String geändert hat
    SearchStart := 0;
    SearchStr   := edtSearch.Text;
  end;
  SearchStart := FindInMemo(Memo1, SearchStr, SearchStart + 1);

  if SearchStart > 0 then
  begin
    Caption := 'Found at position[' + IntToStr(SearchStart) + ']!';
    Label1.Caption := Memo1.CaretPos.Y.ToString();
  end
  else
  begin
    Caption := 'No further finds!';
  end;
end;

{$R *.lfm}

end.

Funziona?

[sekoto]

Codice: [Seleziona]

unit testmemo.mainview;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
  published
    Button1:   TButton;
    edtSearch: TEdit;
    Label1:    TLabel;
    Memo1:     TMemo;
  published
    procedure Button2Click(Sender: TObject);
  public
  end;

var
  Form1: TForm1;

implementation

uses
  strutils, lazutf8;

function FindInMemo(AMemo: TMemo; AString: string; StartPos: integer): integer;
begin
  Result := PosEx(AString, AMemo.Text, StartPos);
  if Result > 0 then
  begin
    AMemo.SelStart  := UTF8Length(PChar(AMemo.Text), Result - 1);
    AMemo.SelLength := Length(AString);
    AMemo.SetFocus;
  end;
end;
//Now, add following code in the event handler OnClick from Button2:
procedure TForm1.Button2Click(Sender: TObject);
const
  SearchStr: string = '';                     // The string to search for
  SearchStart: integer = 0;                   // Last position of the string to search for
begin
  Label1.Caption := '';
  if SearchStr <> edtSearch.Text then
  begin       // Falls sich der zu suchende String geändert hat
    SearchStart := 0;
    SearchStr   := edtSearch.Text;
  end;
  SearchStart := FindInMemo(Memo1, SearchStr, SearchStart + 1);

  if SearchStart > 0 then
  begin
    Caption := 'Found at position[' + IntToStr(SearchStart) + ']!';
    Label1.Caption := Memo1.CaretPos.Y.ToString();
  end
  else
  begin
    Caption := 'No further finds!';
  end;
end;

{$R *.lfm}

end.

Funziona?

Non funzionami restituisce la posizionedel caratere ma non mi dice su quale riga si trova (ad esempio riga 5, riga 10 ecc,...)

[Stilgar]

Ciao
Lavoriamo su un progetto comune.
Così  almeno abbiamo una base comune di lavoro.
Dimmi se è quello che ti interessava.
Stilgar

[sekoto]

Ciao
Lavoriamo su un progetto comune.
Così  almeno abbiamo una base comune di lavoro.
Dimmi se è quello che ti interessava.
Stilgar

Ti ho inviato 2 messaggi privati, fammi sapere se sono arrivati altrimenti ci sono problemi sula consegna dei messaggi in quanto a me dice messaggio consegnato mentre se vado nell'apposita sezione "messaggi inviati" non mi da nessun messaggio

[Stilgar]

Letti oggi e risposto adesso