guden
also ich hatte hier ma gefragt, wei ich in einem RichEdit nach ne text suchen kann und makeiren das geht ja aber wie kann ich weitersuchen??? O_o
ich war mal dann so schlauf, die zeile an dem er stehen geblieben ist, also Globale variable zu speichern und die startpos dann ab der zeile zu setzten aber kein erfolg .... bringt imma nur das erste gefundene wort hier der code
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
| Function TfrmMain.SearchAgainText(RichEdit :TJvxRichEdit; SearchText: String): Boolean;
var
Startpos, Position, EndPos: Integer;
Begin
StartPos:=Zeile;
With RichEdit do
begin
Endpos:= Length(RichEdit.Text);
Lines.BeginUpdate;
while findText(SearchText, StartPos, Endpos, [stMatchCase]) <>-1 do
Begin
Endpos := Length(RichEdit.Text)- StartPos;
Position:= Findtext(SearchText, StartPos, EndPos,[stMatchCase]);
inc(StartPos, Length(SearchText));
SetFocus;
Selstart := Position;
SelLength := Length(SearchText);
end;
lines.EndUpdate;
end;
end; |
