Delphi 使用 TStrings 的 Values

procedure TForm1.FormCreate(Sender: TObject);
var
  s: TStrings;
begin
  s := TStringList.Create;
  with s do
  begin
    Clear;
    Values['Sunday'] := '星期日';
    Values['Monday'] := '星期一';
    Values['Tuesday'] := '星期二';
    ShowMessage(Text); // Sunday=星期日\r\nMonday=...
    ShowMessage('Monday 是 ' + Values['Monday']); // Monday 是 星期一
    Values['Sunday'] := ''; // 刪掉 Sunday
    ShowMessage(Text); // Monday=星期一\r\n...
  end;
  s.Free;
end;