掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ヌル終端文字列を短い文字列に変換する方法 (ID：1168)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんな感じになりました。 type String80 = string[80]; procedure TForm1.Button1Click(Sender: TObject); var a: array[0..80] of char; s: String80; ps: PChar; begin a := 'abc'; ps := addr(s); // shortstringのアドレス CopyMemory(addr(ps[1]), addr(a), 80); // [1]から実体 ps[0] := chr(80); // [0]は文字数 ShowMessage(s); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.