掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
全角文字だけ抽出するには？ (ID:16238)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
処理速度はともかく、簡単にはこんな感じ procedure TForm1.Button1Click(Sender: TObject); var source, destination: string; i:integer; begin source := 'abcdタモリ0123いいとも'; destination := ''; i := 0; repeat inc(i); if source[i] in LeadBytes then begin destination := destination+source[i]+source[i+1]; inc(i); end; until i > Length(source); Label1.Caption := destination; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.