掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Pointerをarray of Charに変換するには (ID：11099)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんな感じで参考になるかな procedure TForm1.func1; var mStream:TMemoryStream; aaa:array[0..1000] of Char; s:string; begin s := 'あいうえお123ABCxyz'; mStream := TMemoryStream.Create; try mStream.Write(PChar(s)^,Length(s)); mStream.Position := 0; mStream.Read(aaa[0],mStream.Size);// ここでコピー test(aaa, mStream.Size); finally mStream.Free; end; end; procedure TForm1.test(aaa: array of char; size: integer); var s:string; begin SetLength(s,size); Move(aaa[0],s[1],size); Memo1.Text := s; end; procedure TForm1.Button1Click(Sender: TObject); begin func1; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.