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