>>896

ちょっと勉強のためにやってみた


procedure TForm1.Button1Click(Sender: TObject);
var str1,str2:string;
a1,a2:integer;
begin
str1:=edit1.text;
str2:=edit2.text;
a1:=ansipos(str2,str1);
a2:=a1 div 2 + 1;
edit3.Text:=inttostr(a2);

end;


Edit1の中に、調べたい文字列を書く
Edit2の中に、Edit1に書かれた内容から何文字目か知りたい文字を書く
Edit3の中に、Edit2の中に書かれた文字が、何文字目かを表示

日本語文字ってことで、２バイトだから、ちょろっと操作→　a2:=a1 div 2 + 1;


こんな感じでできると思うけど、もっといい方法あるかもしれない
（俺も初心者だし）

ただこれ、日本語のみ使ってる場合にしか使えないから
１バイト文字もはいってきたときにどう処理するかが頭使うのかも