Ricerca del testo in un tmemo

[sekoto]

Salve a tutti, dovrei ricercare del testo all'interno di un TMemo e fare restistuire l'eventuale "Linea" dovè posizionato, in caso in cui la parola si trova in più linee elencarle tutte.Avete qualche pezzo di codice, tips, o link sotto mano? Grazie a tutti

[schumi]

prova con le funzioni Pos() o NPos(), dovresti riuscire a creare una tua procedura in modo abbastanza semplice.

[bonmario]

Codice: [Seleziona]

{Permette il posizionamento ad una particolare riga di un TMemo}
  procedure VaiAllaRigaMemo(WrkMemo:TMemo; Riga:Integer; VFSetFocus:Boolean = True);
  var Posx, Idx, LenLineEnding:Integer;
  begin
    if (WrkMemo.Lines.Count > 0) then begin
      LenLineEnding:=UTF8Length(LineEnding);

      Posx:=0;
      for Idx:=0 to Riga - 1 do begin
        Posx:=Posx +
              UTF8Length(WrkMemo.Lines[Idx]) +
              LenLineEnding;
      end;

      WrkMemo.SelStart:=Posx;
    end;

    //Porto la memo in primo piano
    if VFSetFocus then begin
      WrkMemo.SetFocus
    end;
  end;

Ciao, Mario

[sekoto]

ho trovato quello che mi serve nel wiki di freepascal solo che mi da un errore UTF8Length non dichiarato... come risolvo?

Codice: [Seleziona]

Search text
Contrary to the previous example, you can also looking for a text (String) in a TMemo and return the place where it is: Position:=Memo1.SelStart;

The following example shows how you can search and search further for a text in a memo:

Create a new application with a TEdit Edit1, a TMemo Memo1 and two TButton Button1 and Button2.
Complete the uses clause to LCLProc and strutils.
In the event handler OnClick of Button1 fill the memo with any text, as in the example Insert lines directly.
In the source text editor add following function (based on the example from the German Lazarusforum):
// FindInMemo: Returns the position where the string to search was found
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
  if SearchStr <> Edit1.Text then begin       // Falls sich der zu suchende String geändert hat
    SearchStart := 0;
    SearchStr := Edit1.Text;
  end;
  SearchStart := FindInMemo(Memo1, SearchStr, SearchStart + 1);

  if SearchStart > 0 then
    Caption := 'Found at position['+IntToStr(SearchStart)+']!'
  else
    Caption := 'No further finds!';
end;

[xinyiman]

ho trovato quello che mi serve nel wiki di freepascal solo che mi da un errore UTF8Length non dichiarato... come risolvo?

Codice: [Seleziona]

Search text
Contrary to the previous example, you can also looking for a text (String) in a TMemo and return the place where it is: Position:=Memo1.SelStart;

The following example shows how you can search and search further for a text in a memo:

Create a new application with a TEdit Edit1, a TMemo Memo1 and two TButton Button1 and Button2.
Complete the uses clause to LCLProc and strutils.
In the event handler OnClick of Button1 fill the memo with any text, as in the example Insert lines directly.
In the source text editor add following function (based on the example from the German Lazarusforum):
// FindInMemo: Returns the position where the string to search was found
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
  if SearchStr <> Edit1.Text then begin       // Falls sich der zu suchende String geändert hat
    SearchStart := 0;
    SearchStr := Edit1.Text;
  end;
  SearchStart := FindInMemo(Memo1, SearchStr, SearchStart + 1);

  if SearchStart > 0 then
    Caption := 'Found at position['+IntToStr(SearchStart)+']!'
  else
    Caption := 'No further finds!';
end;

Basta usare il Length (la versione utf8 mi sembra deprecata in quanto adesso è automaticamente utf8)

[sekoto]

Perdonami non sono un esperto anzi, in pratica mi stai dicendo che all'interno del function dovrei sostituire UT8Length con Length? Grazie e scusa ancora

[bonmario]

Rispondo a tutti e 2:
- per usare UTF8length, devi aggiungere "LazUTF8" alla uses
- Length e UTF8length danno risultati differenti con le stringhe che contengono caratteri accentati. Per come la vedo io, in base a cosa devi fare con la stringa, devi usare una o l'altra. nessuna delle 2 è deprecata.

Se vuoi un semplice esempio, crea un progetto nuovo e, nella FormCreate metti questo:

Codice: [Seleziona]

  ShowMessage(IntToStr(Length('à')) +
               LineEnding +
               IntToStr(Utf8Length('à')));

Ciao, Mario

[xinyiman]

Effettivamente mi sono espresso male io. Non è deprecata, ma se ricordo bene nelle applicazioni Gui l'utf-8 è quello impostato di default. E mi pare di aver letto da qualche parte che consigliano l'uso delle funzioni senza il prefisso utf8. Tutto li.

[bonmario]

Dipende da cosa devi farci ....

Se ad esempio fai un programma in cui, data una frase qualsiasi, devi dire all'utente da quanti caratteri è composta quella frase, devi usare Utf8Length, altrimenti gli comunicheresti un valore sbagliato con frasi tipo che contengono caratteri "particolari".
Per tutto il resto, di solito uso Length, a meno di casi particolari che valuto di volta in volta.

Ciao, Mario

[Stilgar]

Scusare.
Mi state facendo venire un dubbio...
{$Codepage UTF8}
Non fa "traslare" l'uso delle fuzioni ad hoc per utf 8?
Stilgar
EDIT:Quindi Length, SetLength e così via.

[bonmario]

Da qualche versione del compilatore, non dovrebbe nemmeno più essere necessaria quella dichiarazione: dovrebbe fare al volo le conversioni e trasformare tutte le stringhe in UTF8.
Credo però che sia voluto il fatto che Length ed UTF8Lenght funzionino in maniera diversa, proprio per i motivi che spiegavo prima.

Ciao, Mario

[sekoto]

Con il codice linkato sopra preso dal wiki riesco ad ottenere la una semplice ricerca solo che invece di restituirmi il numero della riga dove è posizionata la parola cercata ottengo la posizione del cursore. Come riesco ad ottenere il numero della riga dove è posizionata la parola cercata?
Grazie

[Stilgar]

Sfrutta la posizione del cursore.

Codice: [Seleziona]

function getLineaCorrente(const aMemo : TMemo): integer;
Begin
  result := aMemo.CaretPos.X + 1;
 End; 

UNa cosa del genere (l'ho scritto a memoria )
Stilgar

[sekoto]

Sfrutta la posizione del cursore.

Codice: [Seleziona]

function getLineaCorrente(const aMemo : TMemo): integer;
Begin
  result := aMemo.CaretPos.X + 1;
 End; 

UNa cosa del genere (l'ho scritto a memoria )
Stilgar

Ciao il tuo codice funziona in parte ossia all'inizio mi restituisce sempre zero mentre se lo rieseguo ('l'provato con un Button) mi da sempre la posizione della parola trovata in precedenza. Mispiego meglio con un esempio pratico: in un testo avendo la parola "casa" posizionata in due righe differenti, tipo la riga 5 e la riga 20, quando eguo la ricerca il risultato sarà:

Il memo evidenzia la parola "casa" in posizione 5 ma la riga segnalata è la numero 1

riclicco

il memo evidenzia la parola "casa" in posizione 20 ma la riga segnalata è la numero 5

riclicco

il memo evidenzia la parola in numero 5 ma la riga segnalata è la numero 20

e così via...

Come risolvo?

[Stilgar]

Fai spostare il cursore prima di leggerne la posizione.
😜