Hallo Alle!
Ich habe mir hier eine Suchfunktion gebaut, welche aus einem TMemo einen bestimmten Text sucht.
Delphi-Quellcode:
procedure TBondruck.Button4Click(Sender: TObject);
Var
I, J, PosReturn, SkipChars: Integer;
begin
for I := 0 to Memo2.Lines.Count do
begin
PosReturn := Pos(Edit1.Text,Memo2.Lines[I]);
if PosReturn <> 0 then {gefunden!}
begin
Skipchars := 0;
for J := 0 to I - 1 do
Skipchars := Skipchars + Length(Memo2.Lines[J]);
SkipChars := SkipChars + (I*2);
SkipChars := SkipChars + PosReturn - 1;
Memo2.SetFocus;
Memo2.SelStart := SkipChars;
Memo2.SelLength := Length(Edit1.Text);
Break;
end;
end;
end;
Klappt ganz gut. Wie kann ich nun erreichen, dass der gefundene Text immer in der ersten Linie erscheint?
Gruß
Heike