TStringsとTStringListの扱いについて (ID:17458)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

お世話になっております かなものと申します

以前はTStringsとTStringListの初歩中の初歩の質問をさせて頂きました。
あれからいくつ調べたのですが、どうも自分の頭では理解しきれず苦戦しております。
今回、どうしてもわからない所がありましたので、
これも初歩中の初歩かと思いますが…質問させて頂きたいと思います。

やりたい事は、プリンターの一覧を取得して、それをComboBoxに入れて表示したいと考えています。

そこでまず、このように組んでみました。

procedure TForm1.FormCreate(Sender: TObject);
begin
        ComboBox1.Items := Printers.Printer.Printers;
end;

コレでしたら問題なく表示しました。ですが、これでは応用がききません。
そこで、一度リストに入れようと思い、色々調べた結果、このようにしてみました。

procedure TForm1.FormCreate(Sender: TObject);
var
        SetPrinters: TStrings;
begin
        SetPrinters := TStringList.Create;
        SetPrinters := Printers.Printer.Printers;
        ComboBox1.Items := SetPrinters;
        SetPrinters.Free;
end;

最初 SetPrinters を TStringList で宣言したら、型が違うと言われました。
TStrings に変えた所、今度はエラーが出なくなったので、これで良いのかな？と思っていたら、
これだと作成したアプリケーションの終了時にエラーが発生してしまいました。

そこで、下記のようにしたらエラーも出ず終了するようになりました。

procedure TForm1.FormCreate(Sender: TObject);
var
        SetPrinters: TStrings;
begin
        SetPrinters := Printers.Printer.Printers;
        ComboBox1.Items := SetPrinters;
end;

現在エラーが出ない上記の状態なのですが、これで良いのでしょうか？
それとも別の正しいやり方があるのでしょうか？

前回の質問の答えや、多くのページで（全てではないにしろ）TStringsは使うな的な事
が書かれていたのですが、これで本当に良いのか、自分ではわかりませんでした。

OS:WindowsXP SP2
Delphi6 Personal UP2

←解決時は質問者本人がここをチェックしてください。

戻る