stringlistでのテキストファイル処理について (ID:44454)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんな感じでどうでしょうか？ ですが、本来なら何故そこに'#0'が入っているのかを調べたほうが良いと思います。 '＆'が制御文字なんですかね？にしても'#0'をその前に入れるもんなのか？ DB関連は全くの素人なのでそのへん私ではフォローしかねます。 procedure CharReplace(var aSrcStr:string; const aOldChar,aNewChar:Char); var aPChar: PChar; i,aLen: Integer; begin aLen := Length(aSrcStr); if aLen=0 then Exit; aPChar := @aSrcStr[1]; for i := 1 to aLen-1 do begin if aPChar^ = aOldChar then aPChar^ := aNewChar; inc(aPChar); end; if aPChar^ = aOldChar then aPChar^ := aNewChar; end; procedure TForm1.Button2Click(Sender: TObject); var aStr:string; begin aStr := '0123'+#0+'456'; ShowMessage(aStr); ShowMessage(Format('長さ:%d',[Length(aStr)])); //aStr := StringReplace(aStr,#0,'?',[rfReplaceAll]); CharReplace(aStr,#0,'?'); ShowMessage(aStr); ShowMessage(Format('長さ:%d',[Length(aStr)])); end;