掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
CharにStringの値を代入するには？ (ID：2129)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
カルガモ「こんなんもありかも鍋。φ(..)♪」 type ArrayOfByte = array of byte; var sStr: string; cChr: ArrayOfByte absolute sStr; i : Integer; begin sStr := 'ほにゃらら？コピー不要かいな？そうかいな'; Memo1.Lines.Add(PChar(cChr)); for i:=0 to StrLen(PChar(cChr)) do Memo1.Text := Memo1.Text + IntToHex(cChr[i], 2) + ' '; end; ドジョウ「ん？そんなことせんで、これでどじょう鍋。ζ」 begin sStr := 'ほにゃらら？そのまんまファイル保存かいな？そうかいな'; fs := TFileStream.Create('ほにゃらら.bin', fmCreate); fs.Write(sStr[1], Length(sStr)); fs.Free; end; 缶チュウハイ「そのまんま保存なん意味ないで。エディタで見えてまんがな。見せとうないンなら暗号化せなあかんチュウハイ」
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.