Memo durchsuchen

[Caption]

Hi!

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

Thx for replys!

Mfg Caption

[sakura]

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

......

[Stanlay Hanks]

Ich würde:

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

Man liest sich. Stanlay 8)

[S - tefano]

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

Bis dann,

S - tefano

[ssach]

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