掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
StrDispose(P); で無効なポインタ操作の実行エラー (ID：34165)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
function SpcToZen(S: string): string; var Src, Dst, P: PChar; begin if Length(S) = 0 then Exit; P := StrAlloc(Length(S)+1); Dst := P; try Src := PChar(S); while (Src^ <> #$00) do begin if (Src^ = #$20) and ((Src+1)^ = #$20) then begin Dst^ := #$81; Inc(Src); Inc(Dst); Dst^ := #$40; end else Dst^ := Src^; Inc(Src); Inc(Dst); end; Dst^ := #$00; result := StrPas(P); finally StrDispose(P); end; end; こんな感じでしょうか？
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.