Delphi-PRAXiS - Delphi Memo durchsuchen

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)

- - Delphi Memo durchsuchen (https://www.delphipraxis.net/4684-memo-durchsuchen.html)

Memo durchsuchen

Hi!

Was ist die best möglichkeit ein Memo noch einem bestimmten String zu durchsuchen?

Thx for replys!

Mfg Caption :mrgreen:

Das Memo hat die Eigenschaft Text. In diesem Zusammenhang kannst Du mit Pos(SubString, Text); nach Strings suchen. Such mal im Forum nach Pos.

...:cat:...

Ich würde:

Delphi-Quellcode:

pos('Gesucht',Memo1.text) nehmen.

nehmen.

Man liest sich. Stanlay 8)

Ach Mist.
Gibt aber auch für alles ne Funktion. Ich hätt jetz schon wieder zwei verschachtelte Schleifen gemacht...

Bis dann,

S - tefano

hy,

hier hast du eine prozedur die dir den suchenden string markiertt in deiner memobox :

Delphi-Quellcode:

			procedure FindMemo(var mem : TMemo; S : string); 

var 

COUNTER : integer; 

FOUND : boolean; 

begin 

* *FOUND := false; 

* *COUNTER := 1; 

* *while (COUNTER <= length(mem.Lines.Text) - length(S)) AND (FOUND = false) do 

* * * begin 

* * * * *if copy(mem.Lines.Text,COUNTER,length(S)) = S then 

* * * * * * begin 

* * * * * * * *FOUND := true; 

* * * * * * * *mem.SelStart := COUNTER - 1; 

* * * * * * * *mem.SelLength := length(S); 

* * * * * * end 

* * * * *else 

* * * * * * COUNTER := COUNTER + 1; 

* * * end; 

* *mem.SelStart := COUNTER - 1; 

* *mem.SelLength := length(S); 

end;

hoffe das hilft dir

cu