Memo durchsuchen

[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