掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TStringsとTStringListの扱いについて (ID:17464)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
かなものさんの２番目のリスト --- 1: procedure TForm1.FormCreate(Sender: TObject); 2: var 3: SetPrinters: TStrings; 4: begin 5: SetPrinters := TStringList.Create; 6: SetPrinters := Printers.Printer.Printers; 7: ComboBox1.Items := SetPrinters; 8: SetPrinters.Free; 9: end; --- 6:でPrintersのTStringsを代入すると 5:で代入したのが消えてしまう 8:でのFreeは 5:で作成したもののFreeではなくPrinters.Print.PrintersのFreeとなる（よって終了時にエラーとなる） 7:は一見代入に見えるが実際はAssign(SetPrinters)と同じこと（問題はない） このやり方にするなら 6:は SetPrinters.Assign(Printers.Printer.Printers)とすべき --- ３番目のリスト >procedure TForm1.FormCreate(Sender: TObject); >var > SetPrinters: TStrings; >begin > SetPrinters := Printers.Printer.Printers; > ComboBox1.Items := SetPrinters; >end; は問題ない ComboBox1.Items := Printers.Printer.Printers; と同じこと
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.