制御文字ぜんぶ消していいかな? procedure EraseChars(var s: string); var p1, p2, pe: pchar; begin UniqueString(s); p1:= pchar(s); p2:= p1; pe:= p1 + Length(s)-1; while p2 <= pe do begin if not (p2^ in [#0..#31,#127]) then begin p1^:= p2^; inc(p1); end; inc(p2); end; if p1 <> p2 then SetLength(s, p1 - pchar(s)); end;
あと、↓も function JBBSShitarabaHTMLLineToDatLine(line: string): string; (略 if idpos > 0 then begin i := idpos + 2; id := Copy(dateid, i, FindPos(' ', dateid, i) - i); idpos := Pos('<font size=1>', dateid); //←追加 Delete(dateid, idpos, High(integer)); dateid := dateid + 'ID:' + id; end;