遙皇φ ★　その３

バイト数間違えてたかも。

実験したら一覧は出来たよ

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
　RicheditDest.Lines.Clear;
　for i:=0 to RicheditSrc.Lines.Count-1 do
　　begin
　　if AnsiStartsText(#09#09'<Div',RicheditSrc.Lines[i]) then
　　　begin
　　　　RicheditDest.Lines.Add(Copy(RicheditSrc.Lines[i],50,54));
　　　end;
　　　//
　　end;
　//
end;