>>245 どうでもよいことですが「気温が暑い」って言い方は正しくないです．「(やけに)気温が高い」もしくは単に「暑い」でおけ． わざとならごめんなさい． >>247 データを自前で持つようにするとチェックボックスは使えなくなるようです． VCLのバグなのかWindows側の問題なのかいまいちよく分かりません． >>253 あなたが『List.Strings[]に文字列を代入していないところを読み出そうとしたら空文字列を返すようにしたい』 …と考えていると決めつけてレスします． { Index がStrings.Count以上なら空の文字列を返す．0〜(Index - 1)ならStrings[Index]を返す． } function GetString(Strings: TStrings; Index: integer): string): string; begin if Index < Strings.Count then Result := Strings.Strings[Index] else Result := ''; end; で，stringA := GetString(List.strings[0]) みたいに使う．
でも「何かを鍵にして複数の文字列を格納し，その鍵を使って文字列を取り出す」ということをしたいのでしたら Valuesプロパティを使って文字列を鍵にして文字列を格納したり取り出したりする方が良いかもしれません． procedure TForm1.Button1Click(Sender: TObject); begin Edit_Value.Text := ListBox1.Items.Values[Edit_Key.Text]; end;
procedure TForm1.Button2Click(Sender: TObject); begin ListBox1.Items.Values[Edit_Key.Text] := Edit_Value.Text; end;
