Hallo Leute!
Folgenden Code habe ich mir nach Internetrecherche zusammengebaut. Er soll in einem Memo ein bestimmtes Wort suchen und die gesamte Zeile, in der dieses Wort auftaucht markieren.
Irgendwie macht er das aber nur für die ersten Zeilen, danach werden Zeichen aus der Zeile davor mitmarkiert.
Delphi-Quellcode:
//Zeile im Memo ermitteln
Zeile := 0;
while Pos(Suchtext,MemoWortbaum.Lines[Zeile]) = 0 do
begin
Inc(Zeile);
end;
//Das wievielte Zeichen im Memotext ist der Anfangsbuchstabe des Wortes?
StringPos := 0;
for i := 0 to Zeile - 1 do
begin
StringPos := StringPos + Length(MemoWortbaum.Lines[i]);
end;
//Markieren
MemoWortbaum.SelStart := StringPos;
MemoWortbaum.SelLength := Length(MemoWortbaum.Lines[Zeile]);
MemoWortbaum.SetFocus;
Danke schonmal-