<!--CodeS-->
var
I, J, PosReturn, SkipChars: Integer;
begin
PosReturn := Pos(edit7.Text, edit6.Text);
if PosReturn <> 0 then {found!}
begin
SkipChars := 0;
for J := 0 to I - 1 do
SkipChars := SkipChars + Length(edit6.Text);
SkipChars := SkipChars + (I*2);
SkipChars := SkipChars + PosReturn - 1;
Help 에 있더군요...
<!--CodeS-->
var
I, J, PosReturn, SkipChars: Integer;
begin
PosReturn := Pos(edit7.Text, edit6.Text);
if PosReturn <> 0 then {found!}
begin
SkipChars := 0;
for J := 0 to I - 1 do
SkipChars := SkipChars + Length(edit6.Text);
SkipChars := SkipChars + (I*2);
SkipChars := SkipChars + PosReturn - 1;
edit6.SetFocus;
edit6.SelStart := SkipChars;
edit6.SelLength := Length(edit7.Text);
end;
<!--CodeE-->