名前
題名
▼ Mr.XRAYさん > > 上で提示したコードの場合，StrCopy を使用する必要がないのであれば， > > どうしても StrCopy を使用する必要がある場合は， > 例えば以下のように書けます． > 質問された方のコードは省略があるので参考です． > この上もこのコードも動作確認は Windows 7 U64(SP1) + Delphi XE(UP1) Pro です． > > procedure TForm1.Button2Click(Sender: TObject); > var > LText : string; > LPChar : PChar; > begin > //+1はnull終端文字の分 > //これがないと無効ポインタの操作となる > LText := 'ABCDE'; > LPChar := StrAlloc(Length(LText) + 1); > try > StrCopy(LPChar, PChar(LText)); > Edit1.Text := BoolToStr(SetText2Dll(LPChar)); > finally > StrDispose(LPChar); > end; > end;
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link