|
ｿｽ@ｿｽｿｽｿｽPｿｽ鼬滂ｿｽｿｽｿｽ@ｿｽﾉつゑｿｽｿｽｿｽ
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
ｿｽｿｽｿｽSｿｽｿｽ 2005/03/05(ｿｽy) 03:34:14
ｿｽｿｽxHTMLｿｽｿｽｿｽｿｽbｿｽ`ｿｽeｿｽLｿｽXｿｽgｿｽﾉ擾ｿｽｿｽｿｽｿｽoｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽﾌ抵ｿｽｿｽﾉ探ｿｽｿｽｿｽｿｽｿｽｿｽｿｽPｿｽ黷ｪ
ｿｽｿｽｿｽｿｽｿｽﾂゑｿｽｿｽ驍ｩｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ迪滂ｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽﾆゑｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
Edit2ｿｽﾉ鯉ｿｽｿｽｿｽｿｽPｿｽｿｽｿｽｿｽｿｽｿｽAEditｿｽRｿｽﾉ個撰ｿｽｿｽｿｽｿｽoｿｽｿｽ謔､ｿｽｿｽｿｽｿｽｿｽｿｽﾂゑｿｽｿｽﾅゑｿｽｿｽB
procedure TForm2.Button3Click(Sender: TObject);
var
kazu: Integer;
begin
kazu := AnsiPos(Edit2.Text, RichEdit2.Text);
Edit3.Text := IntToStr(kazu);
end;
ｿｽﾆ擾ｿｽｿｽｿｽｿｽﾄ趣ｿｽｿｽsｿｽｿｽｿｽｿｽｿｽｿｽPｿｽ`ｿｽQｿｽﾂゑｿｽｿｽｿｽｿｽﾈゑｿｽｿｽPｿｽ黷ｪｿｽPｿｽOｿｽTｿｽVｿｽOｿｽﾆでまゑｿｽｿｽｿｽｿｽB
AnsiPosｿｽﾖ撰ｿｽｿｽｿｽﾍゑｿｽｿｽﾟて使ｿｽｿｽｿｽﾌで使ｿｽｿｽｿｽﾔ違いｿｽｿｽｿｽﾄゑｿｽﾌではなゑｿｽｿｽｿｽｿｽﾈと思ｿｽｿｽ
ｿｽｿｽｿｽ竄ｵｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽuｿｽｿｽｿｽSｿｽﾒ」ｿｽﾍ厄ｿｽｿｽOｿｽﾉゑｿｽｿｽ轤ｸ 2005/03/05(ｿｽy) 05:00:44
>AnsiPosｿｽﾖ撰ｿｽｿｽｿｽﾍゑｿｽｿｽﾟて使ｿｽｿｽｿｽﾌで使ｿｽｿｽｿｽﾔ違いｿｽｿｽｿｽﾄゑｿｽﾌではなゑｿｽｿｽｿｽｿｽﾈと思ｿｽｿｽ
ｿｽｿｽｿｽﾌ通ゑｿｽBｿｽwｿｽｿｽｿｽvｿｽﾅ戻ゑｿｽlｿｽｿｽmｿｽFｿｽｿｽｿｽﾗゑｿｽｿｽB
var
kazu: Integer = 0;
pPos: PChar = nil;
procedure TForm2.Button3Click(Sender: TObject);
var
buf: PChar;
begin
GetMem(buf, Length(RichEdit2.Text)+1);
try
StrPCopy(buf, RichEdit2.Text);
if pPos = nil then begin
kazu := 0;
pPos := buf;
end;
pPos := AnsiStrPos(pPos, PChar(Edit2.Text));
if pPos <> nil then begin
RichEdit2.SelStart := pPos - buf;
RichEdit2.SelLength := Length(Edit2.Text);
Richedit2.Perform(EM_SCROLLCARET, 0, 0);
inc(pPos, Length(Edit2.Text));
inc(kazu);
Edit3.Text := IntToStr(kazu)+'ｿｽﾂ厄ｿｽ';
end else begin
Edit3.Text := 'ｿｽSｿｽｿｽｿｽｿｽ'+IntToStr(kazu)+'ｿｽｿｽ';
end;
finally
FreeMem(buf);
end;
end;
ｿｽｿｽｿｽSｿｽｿｽ 2005/03/05(ｿｽy) 06:00:35
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽぜゑｿｽｿｽｿｽｿｽﾄみゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽ(ｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽwｿｽｿｽｿｽvｿｽﾇみ抵ｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽB
ｿｽ¥ｿｽ[ｿｽXｿｽRｿｽ[ｿｽhｿｽﾜでゑｿｽｿｽｿｽｿｽJｿｽﾉゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾟて会ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽ`
ｿｽｿｽｿｽSｿｽｿｽ 2005/03/05(ｿｽy) 07:21:58
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽXｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
